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1.  INTRODUCTION 


The  'utility  of  the  digital  computer  for  scientific  calculation  and 
the  human  labor  saved  through  its  use  are  well  i^nown.  Not  long  after 
digital  computers  came  into  popular  use  for  number  crunching,  it  be- 
came apparent  that  a great  deal  more  human  labor  could  be  eliminated 
if  the  computer  could  generate  graphic  output  as  well  as  the  normal 
printout;  it  is  now  unusual  to  find  a computer  installation  of  any  size 
which  does  not  have  some  sort  of  graphic  capability.  The  advent  of  the 
interactive  graphics  terminal  which  allows  rapid  generation  of  graphs, 
pictures,  and  in  some  cases  moving  pictures  added  another  increment 
of  flexibility  and  has  indeed  become  a technical  field  itself. 

The  software  provided  with  most  computer  graphics  facilities  is 
designed  primarily  to  generate  the  familiar  cartesian  graphics  of  Y vs  X, 
since  most  data  is  amenable  to  this  format.  Not  all  data,  of  course, 
fits.  One  often  wants  to  draw  a picture  of  a surface,  say  Z = f(x,y), 
or  he  may  wish  to  draw  contours  of  constant  Z on  the  surface  or  he 
may  wish  to  view  the  surface  from  different  viewpoints  or  both.  One 
also  wishes  at  times  to  draw  a picture  of  a solid  object  either  with  or 
without  the  details  of  the  side  away  from  the  viewer.  Most  graphics 
installations  have  available  software  to  perform  some  of  the  above 

tasks  though  probably  very  few  have  all. 

We  offer  in  this  report  a selection  of  graphics  software  which 
we  have  developed.  In  most  cases,  program  listings  are  included, 
along  with  sample  results.  Except  for  the  contouring  algorithms, 
we  have  included  a technical  discussion  which  is  sufficiently  detailed 
for  the  reader  to  write  his  own  software  if  necessary. 


The  contouring  algorithms  in  Section  2 are  complete  except 
for  a driver  program  and  have  proven  so  versatile  that  there 
has  been  no  need  to  change  them  since  they  were  originally  written. 
Their  operation  is  completely  described  in  Reference  1. 

Section  3 addresses  three-dimensional  graphics  with  perspective, 
emphasizing  basic  principles.  Only  a simple  program  is  listed  in 
order  to  show  one  application  of  the  procedures  involved. 

Finally,  in  Section  4 we  present  two  hidden  line  algorithms 
and  compare  their  performance  on  the  same  object.  The  first  is 
a direct  implementation  of  Roberts'  algorithm;  a program  listing  is 
included.  The  second  can  trace  its  ancestry  to  Warnock's  algorithm. 
We  found  a direct  implementation  to  be  unsatisfactory  because  the 
original  algorithm  subdivides  the  picture  until  it  finds  a sub- 
scene simple  enough  to  handle.  The  resulting  line  lengths  were  all 
too  often  at  the  resolution  limit  of  the  plotting  device,  which- 
therefore  increased  the  execution  time  tremendously  besides  yielding 
an  untidy  picture. 

2.  The  Contouring  Subroutines  LEVEL1  and  LEVEL2 
2.1  General  Description 

It  is  sometimes  necessary  or  convenient  to  plot  contours 
of  a function  of  the  form  Z = f(x,y)  where  Z is  tabulated  over  a 
rectangular  field.  The  two  sets  of  subroutines  described  here  are 
fast,  easy  to  use,  and  do  not  require  large  amounts  of  computer 
storage. 

LEVEL1  and  LEVEL2  are  basically  FORTRAN  versions  of  the 
ALGOL  procedures  C0NT0UR1  and  C0NT0UR2  which  are  described  in 
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Reference  1.  Certain  features  have  been  added  to  increase  their 
generality.’  > 

i 

LEVEL1  traces  contours  through  a rectangular  mesh,  using 
linear  interpolation  to  find  the  intersections  of  the  contours  with 
the  sides  of  each  mesh  element  (See  Fig  Ta).  LEVEL2  constructs 
a fifth  point  at  the  center  of  each  mesh  element.  The  height  of 
this  point  is  defined  as  the  average  of  the  heights  of  the  four 
corner  points  (See  Fig  lb).  It  then  finds  the  intersections  of  the 
contour  with  the  diagonals  as  well  as  the/  sides  of  the  mesh  element 
and  thus  produces  a smoother  curve.  This  is  the  only  difference 
between  the  two  subroutines.  For  a more  thorough  discussion  of  the 
internal  logic,  the  reader  is  referred  to  the  original  report. 

Usage  of  the  two  routines  is  identical,  requiring  only  one 
call  with  eight  arguments  to  obtain  contour  plots  in  either  polar 
or  cartesian  coordinates.  Both  require  the  user  to  supply  a logical 
array  which  has  the  same  FORTRAN  dimensions  as  the  array  to  be  con- 
toured. This  array  is  used  for  internal  bookkeeping;  if  storage  is 
short,  another  array  in  the  calling  program  may  be  used  via  the 
EQUIVALENCE  statement.  Additionally,  one  needs  an  array  of  X values 
which  must  be  monotonically  increasing  or  decreasing,  but  need  not 
be  uniformly  spaced;  a similar  array  of  Y values;  and  an  array  of 
contour  heights.  The  contour  heights  need  not  be  in  any  particular 
order.  There  is  also  no  need  to  worry  about  requesting  a contour 
above  or  below  the  Z array;  if  the  subroutines  do  not  find  any 
intersections  corresponding  to  a given  contour,  they  simply  move  on 
to  the  next. 

The  general  operation  of  the  two  subroutines  is  as  follows: 
The  array  of  contour  heights  is  processed  in  order.  For  each  height. 
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the  subroutine  scans  along  the  mesh  boundary,  starting  at  the  lower 
left  corner,  until  it  finds  an  intersection  with  the  high  ground  on  the 
right  as  one  faces  into  the  mesh.  It  follows  this  contour  through 
the  mesh,  always  keeping  the  high  ground  on  the  right,  until  the  con- 
tour emerges  from  the  mesh.  It  then  resumes  scanning  where  it  left  off 
and  continues  in  this  manner  until  all  contours  of  the  current  height 
which  intersect  the  edges  of  the  mesh  have  been  found.  Because  it  must 
have  the  high  ground  on  the  right,  it  cannot  "refind"  contours  it 
has  already  traced.  When  the  open  contours  (those  which  intersect  the 
edges  of  the  mesh)  have  been  processed,  the  subroutines  search  the 
interior  for  closed  contours  or  islands,  again  keeping  the  high  ground 
on  the  right.  When  all  contours  have  been  processed,  control  returns 
to  the  calling  program. 

Neither  subroutine  draws  the  boundaries  of  the  mesh,  nor  do  , 
they  label  the  contours.  The  user  may  not  want  the  boundaries  drawn 
or  the  boundaries  may  not  describe  a rectangle,  as  in  some  of  the 
examples.  If  the  boundary  is  a rectangle,  one  can  easily  draw  it 
in  the  calling  program.  Similarly,  it  is  difficult  to  place  numeric 
contour  labels  on  a plot  where  they  will  not  be  overwritten.  The  user 
usually  knows  enough  about  the  data  being  contoured  to  mark  the  first 
and  last  points  of  each  contour,  as  shown  in  one  of  the  examples. 

2.2  Application 

The  calling  program  must  provide  the  arrays  X,  Y,  Z,  U,  and  H. 
For  example, 

DIMENSION  X ( i ) , Y(j),  Z(i,j),  U(i,j),  H(k) 

LOGICAL  U 

. . . (Statements  defining  X,  Y,  Z,  and  H) 
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I = i 


J = 3 
K = k 

U(1 ,1 ) = .FALSE,  (or  .TRUE.) 

CALL  LEVEL  1 (X,  Y,  Z,  H,  U,  I,  J,  K) 
or 

CALL  LEVEL2  (X,  Y,  Z,  H,  U,  I,  J,  K) 

Where 

X and  Y are  arrays  describing  the  coordinate  grid  over  the  rectangular 
mesh.  Uniform  spacing  is  not  necessary,  but  the  arrays  must 
be  in  ascending  or  descending  order. 

i and  j are  the  number  of  elements  in  the  X and  Y arrays,  respectively. 
There  is  no  restriction  on  their  magnitude. 

Z is  an  array  containing  the  heights  of  the  dependent  variable  at 
each  (X,Y)  intersection. 

H is  the  array  of  contour  heights  to  be  plotted. 

K is  the  number  of  contours.  Neither  K nor  the  order  in  which  the 
heights  are  given  is  restricted. 

U is  a logical  array  which,  except  for  the  first  element,  is  set 

internally.  If  U ( 1 , 1 ) is  set  .FALSE.,  X and  Y are  assumed 
to  be  in  inches. 

If  U(l,l)  is  set  .TRUE.,  polar  coordinates  are  assumed, 
with  X in  inches  and  Y in  radians. 


f. 


2.3  Source  Listings 

Source  listings  of  LEVEL 1 , FOLLOW,  LEVEL2 , PURSUE,  and  DRAW 
appear  in  Appendix  4.  LEVEL!  calls  FOLLOW  to  trace  the  contours  and 
FOLLOW  calls  DRAW  to  draw  them.  LEVEL2  calls  PURSUE  which  calls  DRAW. 
Most  modifications  of  the  package  take  place  in  DRAW,  as  will  be  seen 
in  the  examples. 

2.4  Examples 

2.4.1  Contouring  Over  a Simple  Rectangular  Array 

Program  ONE,  listed  in  Appendix  4,  reproduces  the 

two  example  figures  from  the  original  report.  The  first  (Fig.  2)  is 
drawn  with  LEVEL1  and  the  second  (Fig.  3)  is  drawn  with  LEVEL2.  The 
effects  of  the  different  methods  of  interpolation  are  clear. 

2.4.2  Labeling  the  Contours 

One  can  identify  the  contours  by  printing  out  the  X and 
Y arguments  from  DRAW;  however,  for  large  mesiies  this  can  produce  many 
pages  of  output.  A usually  satisfactory  alternative  is  to  mark  the  first 
and  last  point  of  each  contour  with  a unique  symbol.  This  is  easily  done 
by  adding  a common  block  to  LEVEL1  (or  LEVEL2)  and  DRAW  to  pass  the  con- 
tour counter  to  DRAW.  The  counter  can  then  be  fed  to  a symbol  drawing 
routine.  The  CALCOMP  subroutine  SYMBOL,  for  example,  has  a repertoire 
of  15  symbols,  numbered  0 through  14. 

The  listings  of  LEVEL1  and  DRAW  in  Appendix  4 show  how 
this  might  be  done.  One  might  wish  to  make  it  an  option  and  pass  the 
controlling  information  through  the  array  UNUSED,  since  none  of  the 
points  on  the  mesh  boundary  (except  the  first)  are  used. 

2.4.3  Contouring  in  Other  Coordinate  Systems 

The  only  requirement  here  is  that  the  mesh  be 
rectangular  in  some  coordinate  system.  Then  a transformation  can  be 

7 


FI  : 


— 


~ ^ - ■ 


built  into  DRAW  to  compute  and  plot  the  corresponding  (X,Y)  coordinates. 
The  following  two  examples  will  illustrate. 

2. 4. 3.1  A Joukowski  Transformation 

This  is  the  familiar  cylinder- to- airfoil 
transformation  from  classical  fluid  mechanics.  The  stream  function 
was  defined  over  a rectangle  in  cartesian  coordinates  and  the  stream- 
lines (contours  of  constant  stream  function)  were  traced  in  this  space. 
The  Joukowski  transformation  was  applied  to  each  point  passed  to  DRAW 
to  draw  the  airfoil  and  selected  streamlines.  The  variable  RAM  in  the 
common  block  TRFORM  is  used  to  suppress  drawing  any  part  of  a stream- 
line which  falls  inside  the  cylinder  in  cartesian  coordinates  (If  these 
are  left  in,  there  results  a very  messy  plot  because  they  map  into 
points  outside  the  airfoil).  The  cylinder  and  corresponding  airfoil  are 
shown  in  Figures  4 and  5.  The  protuberances  at  the  two-o'clock  and 
four-o'clock  positions  on  the  cylinder  are  standing  vortices. 

2.4. 3.2  A User-Defined  Transformation 

In  this  example,  the  stream  function  is 
defined  in  (X,n)  coordinates,  where  n = (Y-YL)/(Y(J-YL)  and  Yy  and  Y 
are  tabular  functions  of  X.  The  streamlines  are  traced  in  the  X,n 
plane  and  when  a point  (X,n)  is  passed  to  DRAW,  it  uses  the  inter- 
polating function  ATKN  to  find  the  Y^  and  Yy  corresponding  to  X. 

It  then  computes  Y from  Y = Yy  + n (Yy-Yy ) and  displays  the  point. 

The  variable  SY  in  the  listing  is  a scale  factor.  The  finished  plot 
is  shown  in  Figure  6.  The  airfoils  and  upstream  and  downstream  straight 
lines  were  drawn  by  the  calling  program.  The  polar  option  in  DRAW  was 
not  needed  for  this  problem,  so  it  was  omitted. 
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2.4.4  Accumulating  the  Contour  Points  as  an  X-Y  Array. 

t 

If  for  some  reason,  one  wishes  to  store  all  the  points 
in  a given  contour  and  draw  them  all  at  once  rather  than  one  at  a 
time,  DRAW  can  be  modified  to  do  so.  The  logical  variables  FIRST 
and  LAST  signal,  as  their  names  imply,  the  beginning  and  end  of  a 
contour  line.  All  that  one  needs  to  remember  is  that  there  may  be 
more  than  one  line  segment  for  a given  contour  height.  An  example 
of  this  use  is  given  in  the  section  on  three-dimensional  graphics. 

2.5  Do  Not  . . . 

If  one  wishes  to  contour  over  a subset  of  an  array,  say  a 
20  x 20  subset  of  a 40  x 20  array,  do  not  tell  LEVEL1  or  LEVEL2  that 
the  array  dimensions  are  20  x 20.  The  algorithm  used  by  FORTRAN 
to  find  the  relative  location  of  a variable  whose  subscripts  are  I, 

J in  an  M x N array  is  I -1  +Mx ( J- 1 ) . LEVEL1  and  LEVEL2  would  assume 
I M to  be  20,  whereas  the  array  was  defined  with  M=40.  The  resulting 

plots  can  be  interesting.  The  proper  way  to  proceed  is  to  set  the 
t unused  part  of  the  array  to  a value  far  different  from  that  to  be 

contoured  and  supply  the  entire  array  to  the  subroutines. 

3.  Three-Dimensional  Graphics  with  Perspective 
3.1  General  Overview 

The  generation  of  a perspective  drawing  of  a solid  object 
from  an  arbitrary  viewpoint  in  space  requires  three  steps.  First, 
the  coordinates  of  the  object  are  translated  from  its  (object)  coordinate 

J 

system  to  the  viewer's  (eye)  coordinate  system,  then  the  eye  coordinates 
are  rotated  to  align  with  the  viewer's  line  of  sight.  Finally,  the 
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hidden  line  problem  is  not  addressed  here,  although  this  is  a necessary 
prelude.  It  is  presented  in  Section  4. 

3.2  Translation  from  Object  Coordinates  to  Eye  Coordinates 
We  assume,  for  reasons  which  will  be  apparent,  the  object 
to  be  located  near  the  origin  of  its  coordinate  system.  Then  the 
translation  is  only  mildly  intricate.  Consider  Figure  7.  The  view- 
point (Xv,Yv,Zv)  specified  in  the  object  coordinate  system  is  taken 
as  the  origin  of  the  eye  coordinate  system,  in  which  coordinate  points 
are  denoted  as  (Xe,/e,Ze).  By  inspection  of  Figure  7,  we  see 
Xe  = Xv-X 

Ye  = Z-Zv  (3-1) 


Ze  = Yv-Y 

These  relations  can  be  expressed  more  neatly  in  matrix  form: 


(3-2) 


Or 


Xe 


[F] (X  - Xv) 


(3-2a ) 


Equation  (2)  holds  for  positive  Yv.  If  Yv  is  zero  or  negative, 
TF]  takes  the  form 

/ 1 0 o' 


(3-3) 


3.3  Coordinate  Rotation 

Now  we  rotate  the  eye  coordinate  system  so  that  the  Ze  axis 
points  at  the  origin  of  the  object  coordinate  system  (which  is  why 
we  assumed  the  object  to  be  located  near  the  origin  of  its  coordinate 
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system).  This  takes  two  steps  --  a rotation  through  angle  8 about  the 
Ye  axis  so  that  Ze  points  at  (0,0, Zv),  followed  by  a rotation  through 
angle  a about  the  Xe  axis  so  that  Ze  points  at  (0,0,0).  From 
trigonometry,  3 = -tan  (y~).  If  Yv  is  zero,  B = | for  positive  Xv 

1 2 Q 

and  - ~ for  negative  Xv.  Similarly,  a = -tan  [Zv//tXv  + Yv  )] 

The  matrix  for  the  first  rotation  is 


cos  b 0 sin  8 

0 1 0 

sin  8 0 cos  3 


(3-4) 


After  this  rotation,  the  Xe  component  of  (0,0, Zv)  will  be  null.  In 
eye  coordinates  (0,0, Zv)  is  (Xv,0,Yv). 

The  second  rotation  operates  on  the  result  of  the  first 
rotation  to  null  the  Ye  component  of  [R^]Xe.  The  rotation  matrix 


1 0 


0 cos  a -sin  a 

0 sin  a cos  a/ 


(3-5) 


If  we  denote  the  translation  matrix  (3-2)  and  (3-3)  symbolically 


0 0 


0 0 1 


(3-6) 


we  can  combine  all  three  matrices,  thus: 


[T]  = [R2][R1][F] 


f cos  6 


f sin  8 


f sin  a sin  -f  sin  a cos  8 cos  a ) (3-7) 


-f  sin  8 cos  a f cos  a cos  8 sin  a 


i * A ■ 


3.4  Perspective  Transformation 

This  is  the  simplest  part  of  the  entire  process.  Referring 
to  Figure  8,  we  consider  the  point  P (Xe,Ye,Ze)  on  the  object  and 
treat  the  screen  (or  the  plotting  surface)  as  a window  through  which 
the  object  is  seen.  Assume  the  viewer's  eye  to  be  a distance  b from 
the  window.  By  similar  triangles,  the  point  P'(Xs,Ys)  on  the  screen 
is  related  to  the  point  P on  the  object  via 

Xs  = Xe 
b Ze 

(3-8) 

Ys  = Ye 
b Ze 

The  essence  then  of  generating  a perspective  image  is  simply 
to  divide  the  Xe  and  Ye  coordinates  by  their  corresponding  Ze  values; 
i.e.,  their  depth.  In  practice,  this  can  generate  unacceptably 
small  pictures.  More  satisfactory  pictures  result  if  we  assume  the 
distance  b in  equations  (0)  to  be  unity  and  scale  the  Xs  and  Ys 
values  to  give  the  largest  possible  picture  within  a specified  frame. 

3.5  Scaling 

The  final  step  before  displaying  the  picture,  whether  on 
a terminal  screen  or  an  X-Y  plotter,  is  to  scale  the  Xs,  Ys  values 
so  as  to  produce  the  largest  picture  which  will  fit  inside  a given 
frame  and  also  to  have  the  picture  centered  in  the  frame.  This 
requires  that  the  entire  object  (all  its  xyz  coordinates)  be  trans- 
lated, rotated,  and  converted  to  perspective  coordinates.  (If  multiple 
views  are  to  be  drawn,  the  new  coordinates  will  have  to  be  stored 
in  separate  arrays  or  the  originals  will  have  to  be  kept  on  a mass 
storage  file  and  reread  for  each  new  view).  The  new  coordinates  are 
scanned  for  the  maximum  and  minimum  X and  Y values,  which  are  used  to 
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compute  linear  transformations  of  the  form  V = Ay  + B.  Referring 
to  Figure  9,  we  see  that  the  frame  runs  from  0 to  XF  and  0 to  YF.  We 
want  A and  B to  be  such  that  Y'min  is  0 and  Y'max  is  YF.  Accordingly, 


we  set 

AYinin  + B = 0 
AYmax  + B = YF 

Solving  simultaneously  yields 
A = YF/(Ymax-Ymin) 

(3-9) 

B = -A*Ymin 

The  X direction  must  be  scaled  by  the  same  amount,  but  we 
can't  use  the  same  transformation  because  the  resulting  picture  may 
be  shifted  too  far  left  or  right.  Therefore,  we  define  a subarea 
of  the  frame  whose  width  is  RXF  (See  Figure  9)  and  which  is  centered 
so  that  it  extends  RXF/ 2 left  and  right  of  the  vertical  centerline. 
The  width  RXF  is  defined  as 


RXF  = XF 


Ymax- Ym in 
Xmax-Xmi n 


(3-10) 


Proceeding  as  before,  we  compute  the  linear  transformation  X'  = CX  + D 


such  that 


CXmin  + D = XF/2  - RXF/2 


CXmax  + D = XF/2  + RXF/2 


From  which 


X = RXF/(Xmax-Xmin) 

D = ( XF-RXF )/2  - CXmin 


(3-11) 


The  above  assumes  that  the  projected  view  is  higher  than  it  is 
wide;  i.e.,  that  Ymax-Ymin  > Xmax-Xmin.  If  the  opposite  is  true,  we 
follow  the  same  procedure,  but  with  the  roles  of  X and  Y interchanged. 
Note  that  the  scaling  procedure  described  here  is  not 


restricted  to  three-dimensional  graphics.  It  will  work  for  two- 
dimensional  drawings  as  well;  after  all,  the  drawing  of  a three- 
dimensional  object  is  two-dimensional.  Also,  a drawing  generated 
with  this  system  will  not  require  clipping;  i.e.,  the  deletion  of 
portions  of  lines  which  fall  outside  the  frame. 

3.6  Contouring  in  Three  Dimensions 

Drawing  contours  in  three  dimensions  differs  from  the 
two-dimensional  case  only  slightly.  Rather  than  drawing  each 
increment  of  the  contour  as  it  is  found,  the  contour  coordinates 
are  stored  until  the  entire  contour  is  found,  then  the  contour 
points  are  translated,  rotated,  converted  to  perspective,  scaled, 
and  drawn  en  masse.  The  hill  picture  in  Figure  10  was  drawn  in 
this  way  using  the  accumulating  version  of  subroutine  DRAW  listed 
in  Appendix  B. 

3.7  Summary 

The  generation  of  a perspective  drawing  of  a solid  object 
from  an  arbitrary  viewpoint  in  space  has  been  shown  to  be  a straight- 
forward step-by-step  procedure.  The  individual  steps  can  be  remembered 
from  the  mnemonic  acronym  TRAPS,  for  Translate,  Rotate,  Add  Perspective, 
Scale.  The  drawing  of  a turbine  blade  shown  in  Figure  11  shows  a 
typical  result.  The  drawing  program  is  listed  in  Appendix  C. 

Please  note  that  the  procedures  described  in  this  section  do 
not  delete  hidden  lines  although  they  are  integral  to  a hidden  line 
algorithm.  The  pictures  obtained  here  are  the  so-called  wire  frame 
variety  and  are  entirely  satisfactory  for  many  applications.  Hidden 
line  elimination  begins  where  the  foregoing  leaves  off,  and  is  treated 
in  detail  in  the  next  sections. 
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4.  Hidden  Line  Algorithms 

4.1  Introduction 

One  frequently  wishes  when  drawing  three  dimensional 
objects  with  a computer  that  he  had  a way  of  eliminating  the  back 
lines;  i.e.,  those  which  are  on  the  other  side  of  the  object  from 
the  viewer.  The  drawing  of  a turbine  blade  in  Figure  11  is  an 
example.  The  back  lines  are  so  dense  as  to  obscure  the  picture. 
Ideally,  the  line-hiding  algorithm  should  not  be  too  difficult  to 
apply  nor  take  a lot  of  storage  nor  take  a lot  of  time  to  execute. 

The  two  algorithms  presented  herein  partially  fulfill  these 
requirements.  Both  require  some  data  preparation  but  memory  require- 
ments are  determined  by  the  number  of  data  points  on  the  object  to 
be  drawn  rather  than  by  program  size  and  run  times  are  acceptable  if 
not  brief. 

The  descriptions  to  follow  will  include  program  listings 
and  discussions  sufficiently  detailed  that  the  reader  can  use  either 
method  on  his  own  problems  with  a minimum  of  modification. 

4.2  Roberts'  Algorithm 

4.2.1  Roberts'  algorithm  takes  the  approach  that  each 
line  in  the  three-dimensional  scene  should  be  tested  against  every 
opaque  surface  to  determine  which  portions,  if  any,  of  the  line 
are  visible.  As  such  it  is  particularly  convenient  for  scenes  such 
as  the  hill  in  the  previous  section  where  one  may  wish  to  add 
selected  contours  to  the  basic  hill,  or  for  the  turbine  blade  in 
Figures  11  and  17  through  22  where  one  may  wish  to  leave  out  part 
of  the  object  and  show  the  interior. 

The  basic  concepts  involved  are  quite  simple, 
but  the  implementation  gets  to  be  very  intricate.  Everything  to 
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follow  builds  on  these  three  concepts:  (1)  Solid  objects  are 

represented  as  plane  convex  polyhedra,  convex  because  a solid  is  not 
able  to  hide  itself.  Concave  solids;  e.g.,  horseshoe,  can  be  built 
of  adjoining  convex  solids,  say  three  (or  more)  straight  bars.  (2) 
Each  plane  of  each  polyhedron  is  represented  by  an  equation  of  the 
form 

ax  + by  + cz  + d = 0 (4-1 ) 

The  plane  equations  are  stored  as  column  vectors  of  their  coefficients 


The  set  of  column  sectors  for  a body  can  be  considered  as  a 4 by 

n Matrix,  called  the  Volume  Matrix: 

a,,  a„  . . .a 

1 2 n 

V = b, , b9  . . . b 

1 2 n 

c,  , c„  . . 1 c 

1 2 n 

d,  , d_  . . . d 

1 2 n 

(3)  A general  point  in  space  can  be  represented  by  a row  vector, 

So  = (x,  y,  z,  1).  If  So  is  on  Po,  the  dot  product  Po*So  is  zero 
by  eq  (4-1).  Furthermore,  if  So  is  not  on  Po,  the  sign  of  the  dot 
product  tells  which  side  of  the  plane  the  point  is  on.  Roberts 
uses  the  convention  that  points  inside  the  polyhedron  yield 
positive  dot  products.  Then  points  between  the  viewer  and  a visible 
plane  will  yield  negative  dot  products.  This  fact  will  be  very  useful 

V 

later. 

4.2.2  First  Example:  Basic  Concepts. 

Consider  the  2x2x2  cube  in  Figure  12.  Its  sides  are 


RJBBTB.Sir- 


25 


the  planes: 


1 . 

x = 

-l 

4. 

y = 2 

2. 

x = 

-3 

5. 

z = 0 

3. 

y = 

0 

6. 

z = 2 

A point  inside  the  cube  is  (-2,  1,  1,  1).  The  reader  can 
easily  verify  that  the  dot  product  of  this  point  with  every  column  in 
the  volume  matrix  below  is  positive. 


-110  0 0 

0 0 1-1  0 

0 0 0 0 -1 

-130  2 2 


4.2.3  Eliminating  Back  Lines 

The  easy  part  of  hidden  line  elimination  follows.  The 
first  step  is  to  choose  a viewpoint  and  translate  and  rotate  the  xyz 
coordinates  of  the  vertices  of  the  solid  just  as  in  Section  2.3  plus 
which  we  translate  and  rotate  the  volume  matrix.  The  rotation  matrix 
is  the  same  as  eq  (3-7)  with  a fourth  row  and  column  added: 


f cos  6 f sin  6 0 0 

R = f sin  a sing  -f  sin  a cos  e cosa  0 
-f  sin  6 COSa  f cos  a cos  6 cosb  0 


(4-2) 


The  plane  translation  matrix  is: 

"l  0 0 o' 

T = 0 1 0 0 

0 0 10 

_Xv  Yv  Zv  1_ 

Where  (Xv,  Yv,  Zv)  are  the  object  coordinates  of  the 

vi ewpo i nt. 

The  translation  matrix  premultiplies  the  volume  matrix  and  the  result 
is  premultiplied  by  the  rotation  matrix  to  yield  the  rotated  volume 
matrix,  B. 
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The  rotated  volume  matrix  B = RTV  contains  the 
information  needed  to  determine  which  planes  are  hidden.  As  a result 
of  the  sign  convention  for  planes,  the  signs  of  the  entries  of  the 
third  row  (the  one  containing  the  z coefficients,  Cj ) will  be  negative 
for  hidden  planes  and  positive  or  zero  for  visible  planes.  Thus, 
if  both  planes  whose  intersection  defines  a line  are  invisible,  that 
line  is  invisible.  If  either  plane  is  visible  the  line  is  visible. 

Our  cube  in  Figure  12  was  drawn  from  these  criteria: 

4.2.4  Second  Example.  Drawing  the  Cube 

The  viewpoint  in  Figure  12  is  (-4,  -4,  16)  for  which 


the  rotation  matrix  is: 


0.7071 
R = 0.6667 

0.2357 
0 


-0.7071  0 0 
0.6667  0.3333  0 
0.2357  -0.9428  0 
0 0 1 


Performing  the  matrix  multiplication,  we  obtain  the  rotated  volume 
matrix. 


-0.7071  0.7071  -0.7071  0.7071  0 0 

-0.6667  0.6667  0.6667  -0.6667  0.3333  -0.3333 

-0.2357  0.2357  0.2357  -0.2357  -0.9428  0.9428 

3-1  -46  16  -14 


Note  that  the  above  does  not  include  the  perspective 
transformation.  We  will  deal  with  that  presently. 

The  third  row  of  B above  contains  negative  entries  in 

columns  1,  4,  and  5 which  means  that  planes  1,  4,  and  5 of  the  cube 
are  not  visible.  As  we  look  at  Figure  12,  we  can  see  that  this  is 
indeed  the  case. 

4.2.5  The  Hard  Part:  Adding  Another  Line  to  the  Scene 

The  process  just  described  is  adequate  for  drawing 


simple  objects  such  as  cubes,  prisms,  etc.  However,  it  does  not  take 
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long  to  exhaust  all  the  possibilities.  If  we  want  to  draw  something 
more  complex,  such  as  two  cubes,  or  even  add  the  axes  in  Figure  12, 
we  have  to  test  each  line  against  each  volume  in  the  scene.  If 
there  are  two  or  more  volumes,  each  line  of  each  volume  which  passes 
the  back  line  test  must  then  be  tested  against  each  volume  except 
its  own. 

Each  line  is  represented  parametrical ly  in  terms  of 
its  end  points;  thus  a line  from  (XI,  Y1 , Z1 ) to(X2,  Y2,  Z2)  is: 


or  v = i + t d 

Where  0 < t < 1 so  that  when  t = 0 we  have  the  end  of 


the  line  and  when  t = 1 we  have  the  beginning. 

The  1 at  the  bottom  of  the  column  vectors  permits  the  homogenous 
4-space  representation  of  points  in  3-space.  It  may  be  thought  of 
as  a scale  factor.  See  Appendix  II  of  Newman  and  Sproull  for  a 
complete  discussion. 

Each  value  of  t defines  a point  on  the  line  (4-4). 

We  can  form  another  line  from  that  point  to  the  viewer's  eye.  (Recall 
that  in  eye  coordinates,  the  viewer's  eye  is  at  the  origin,  z increases 
away  from  the  viewer  and  x and  y increase  to  the  right  and  upward 
respectively.)  Such  a line  is: 

u = s + td  + mg  (4-5) 

Where  s,  t and  d are  as  above 

/0\ 

g is  the  vector  / 0 1 

K'J 

a > 0,  scalar 
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To  determine  if  line  (4-4)  is  hidden  by  a volume, 
we  post-mul tiply  equation  (4-5)  by  the  rotated  volume  matrix  of  that 
volume;  i.e.,  we  form  the  product; 

h = u [B]  = s [B]  + td  [B]  + ag  [B]  (4-6) 

If  each  component  of  the  vector  h is  non-negative  for  some  values 
of  t,  the  line  (4-5)  passes  through  the  volume,  meaning  that  the 
line  (4-4)  is  hidden  by  the  volume  for  those  values  of  t. 

Let  us  define 
P = s [B] 

q = d [B]  (4-7) 

w = g [B] 

Note  that  w is  (from  the  definition  of  g)  identically  the  third 
row  of  [B],  the  row  we  checked  for  back  lines. 

Equation  (4-6)  then  becomes 

Pj  + tq j - xWj  >_  0 (4-8) 

Where  j counts  the  columns  in  [B]  (or  the  planes 
of  the  volume);  i.e.,  for  our  cube  we  would  have  six  equations. 

We  then  look  for  the  largest  and  smallest  values  of  t which  will 
satisfy  the  set  of  inequalities  (4-8)  for  a not  negative.  In  essence, 
we  have  a linear  programming  problem  with  n equations  and  three 
constraints;  namely,  a _>  0,  t > 0,  and  t <_  1 . How  do  we  go  about 
solving  it?  Let  us  look  at  another  example,  then  we  will  consider 
some  of  fhe  intricacies  of  the  process  in  detail. 

4.2.6  Third  Example:  Testing  a Line  Against  a Volume 

Let  us  look  at  our  cube  again  from  the  same  viewpoint; 
(-4,  -4,  16).  Say  we  want  to  add  a line  from  (0,  1,  -5)  to  (-3, 

4,  5)  in  object  coordinates,  deleting  the  part  behind  the  cube. 
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The  rotated  volume  matrix  is  the  same  as  in  the  second  example 


and  the  line  (4-4)  become  after  translation  and  rotation: 

/4.9497\  /4.2426\ 

( 2.3333  ) / -3.3333  1 

v = \l2.4922y  + t 9.4281 J 


Since  we  already  know  what  w is,  we  need  only  to  multiply  s and  d 
by  R to  obtain  p and  q': 


and  q = 


We  can  there  form  six  equations  in  t and  « using  eq  (4-8). 

1 . 2 - 3t  + 0.2357  n > 0 

2.  3t  - 0.2357  cx  > 0 

3.  4 - 3t  - 0.2357  a > 0 

4.  -2  + 3t  + 0.2357  a > 0 

5.  5 - lOt  + 0.9428  ,*  > 0 

6.  -3  ♦ lOt  - 0.9428  „ > 0 

The  graphs  of  these  eouations  (taken  as  equalities)  are  plotted 


in  Figure  13. 


To  find  the  largest  and  smallest  t which  satisfy  these 


equations,  we  solve  them  simultaneously  in  pairs,  then  test  the 
resulting  t and  a in  the  remaining  inequalities,  discarding  any  t 
and  a which  do  not  satisfy  all  of  them.  In  other  words,  we  are 
finding  the  intersections  of  the  graphed  equalities  in  Figure  13. 

In  addition,  we  compute  the  intersections  of  each  equality  with 
the  lines  t = 0 and  t = 1,  discarding  any  for  which  a < 0 and  testing 
the  rest  in  the  inequalities  as  before.  Also,  we  find  the  intersections 
for  which  t > 0 or  t < 1 because  solutions  in  these  ranges  indicate 


that  one  end  of  the  before  given  line  is  hidden. 


Throughout  this  process,  we  keep  the  largest  and 


smallest  t's  which  survive  all  of  the  tests.  The  final  pair  are 


the  left  and  right  extremities  of  the  shaded  quadri lateral  in 


Figure  13.  The  given  line  is  hidden  for  all  values  of  t between 


these  two  and  visible  otherwise,  i.e.: 


visible:  0 < t < t 


hidden:  t . < t < t 

nun  max 


visible:  t < t < 1 

max  - — 


If  t . < 0 or  t >1,  that  end  of  the  line  is  hidden, 

min  max 


In  this  example,  we  find  t . = 0.5  and  t 

K min  max 


0.9545.  The  resulting  segments  are  drawn  in  Figure  14. 


4.2.7  Some  of  the  Intricacies 


It  is  possible  to  speed  up  the  search  for  t ^ and 


t max  by  eliminating  some  of  the  graphed  equalities  from  consideration 


There  are  two  criteria  we  can  use: 


1.  The  given  line  is  entirely  in  front  of  the  body 


and  is  not  hidden. 


2.  The  combination  of  p.,  q.,  and  w.  is  such  that 

J J 3 


the  inequality  (4-8)  will  always  be  satisfied  for  0 < t < 1 and  u > 0. 


To  test  for  complete  visibility,  we  go  back  to  the 


definitions  of  p and  q,  eq  (4-7).  By  the  rules  of  matrix  multiplica- 


tion, the  jth  component  of  p is  the  dot  product  of  the  end  point  of 


the  given  line  with  the  jth  plane  of  the  solid.  Likewise,  the  jth 


component  of  the  sum  p + q (i .e. , t = 1 ) is  the  dot  product  of  the 


beginning  of  the  given  line  with  the  jth  plane  of  the  solid.  We 
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showed  in  Sections  4.2.3  and  4.2.4  that  the  jth  plane  is  visible  if 
w.  > 0 and  in  4.2.1  that  points  between  the  viewer  and  a visible 
plane  will  yield  negative  dot  products.  Therefore,  if  Wj  > 0,  the 
plane  is  visible;  if  p^  < 0,  the  end  of  the  line  is  between  the  viewer 
and  the  plane;  and  if  p^  + < 0,  the  beginning  of  the  line  is 

between  the  viewer  and  the  plane.  If  both  ends  are  between  the 
viewer  and  the  plane,  all  other  points  on  the  line  must  also  be 
and  the  line  is  completely  visible.  Thus,  our  criterion  is: 

Wj  >0  and  <_  0 and  Pj  + dj  1 0 (4-9) 

The  equalities  of  p^  and  p^  + q^  allow  for  the  case  where  the  line 
is  on  the  plane  (dot  product  identically  zero  from  eq  4-1). 

If  the  criterion  (4-9)  is  met,  the  remainder  of  the 

•f 

procedure  can  be  skipped  and  the  line  drawn  immediately.  Obviously, 

t 

this  can  save  considerable  time  in  a complex  figure  where  a given  . 
line  is  as  likely  to  be  in  front  of  a volume  as  behind. 

Roberts  gives  two  criteria  for  eliminating  a graphed 
equality  on  the  grounds  that  (4-8)  will  always  be  satisfied. 

They  are: 

1.  w . < 0 and  p.  > 0 and  q.  > 0 (4-10) 

J J J 

2.  w.  < 0 and  p.  > 0 and  q.  < 0 and  p.  + q.  > 0 

In  terms  of  the  dot  products,  these  mean  that  the  given  line  is  on 
or  behind  an  invisible  plane.  We  cannot  however  assume  the  line 
to  be  completely  hidden  because  although  the  plane  is  infinite  in 
extent,  that  portion  of  it  which  corresponds  to  a side  of  the  volume 
is  finite  and  the  ends  of  the  line  may  stick  out  past  it. 

Roberts  also  gives  two  criteria  for  rejecting  graphed 
equalities  on  the  grounds  that  (4-8)  will  never  be  satisfied.  They 


2.  w.  0 and  p.  0 and  q.  > 0 and  p.  + q.  0 
J - KJ  - 


We  can  see  by  inspection  that  these  are  contained  in  (4-9). 

In  practice  (i.e.,  in  a computer  program),  it 
is  necessary  to  assign  tolerances  to  the  tests  in  (4-8)  and 
(4-9)  to  allow  for  round-off  error.  By  trial  and  error,  the  following 
were  found  to  work  well: 

(4-8):  Pj  + tqj  - oWj  > -10'6 

(4-9):  p-<104andp.+q.<10^andw.>_0 

J J J J 

4.2.8  Perspective 

The  process  here  is  almost  identical  to  that  described 
in  Section  3.4  except  that  we  do  not  ignore  the  z values  and  we  must 
transform  the  volume  matrix  to  the  new  coordinate  system,  called 
’ the  screen  coordinate  system  by  Newman  and  Sproull.  The  difference 

? between  screen  coordinates  and  eye  coordinates  is  that  in  screen 

coordinates  the  viewpoint  is  at  = - »,  while  in  eye  coordinates, 
the  viewpoint  is  at  the  origin.  The  screen  in  screen  coordinates 
is  not  at  any  particular  z$  location.  The  coordinate  transformations 
are  simply: 


where 


S = 


/l/ze 

1 0 

0 

\° 


0 

l/ze 

0 

0 


0 

0 

0 

0 


\ 


0 
0 

-1/zej 

1 / 


(4-14) 


Transforming  the  rotated  volume  matrix  from  eye  to 
screen  coordinates  turns  out  to  be  very  simple:  B'  = ZB,  where 


Z = 


0 

1 

0 

0 


0 

0 

0 

1 


(4-15) 


The  line  hiding  procedure  described  above  needs  no 
changes;  it  works  equally  well  in  either  coordinate  system.  Figure  15 
is  a perspective  drawing  of  the  same  cube  and  the  same  line  as  the  third 


example.  The  t - a diagram  is  shown  in  Figure  16. 

4.2.9  Summary  of  Roberts'  Algorithm 

The  foregoing  has  described  a method  of  generating 

hidden  line  drawings  of  simple  objects.  We  have  seen  how  the  volume 

matrix  for  a solid  is  generated  and  how  the  back  lines  of  a solid  are 

eliminated.  Sections  4.2.4  through  4.2.6  dealt  with  the  difficult 

problem  of  adding  another  line  to  the  scene  via  the  parametric 

representation  of  that  line  in  space,  the  generation  of  the  t-« 

diagram  and  the  search  for  t - and  t . Finally,  we  added  the 
y min  max 

the  option  of  drawing  perspective  views. 

Roberts'  algorithm  as  presented  here  is  capable  of 
handling  rather  compl i cated  objects  if  they  are  built  up  of  simpler 
forms  as  the  next  section  will  show.  It  will  fail  however  for  two 
cases.  First,  if  the  given  line  pierces  a body,  the  algorithm  will 
find  a t at  one  of  the  edges  of  the  body  rather  than  at  the  intersection 
of  the  line  and  the  plane.  Perhaps  this  could  be  worked  out;  it  has 
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not  caused  problems  in  the  figures  drawn  to  date.  Second,  it  will 
not  handle  cases  where  two  segments  of  the  given  line  are  hidden,  as 
when  the  given  line  passes  behind  the  two  arms  of  a horseshoe.  The 
implementation  given  in  the  next  section  would  leave  out  the  section 
between  the  arms.  It  would  be  possible  to  handle  this  case  by  treating 
the  surviving  segments  of  the  test  against  one  arm  as  two  new  lines  to 
be  tested  against  the  other  arm,  then  drawing  the  survivors  of  those 
tests.  This  problem  did  not  occur  for  the  objects  drawn  so  far  and  so 
was  not  addressed. 

4.2.10  The  Last  Example:  Drawing  the  Turbine  Blade 

The  turbine  blade  shown  in  Figures  17  through  22 
is  made  up  of  two  major  units,  each  of  which  is  in  turn  subdivided 
into  convex  polyhedra.  The  fir  tree  base  is  divided  into  five  polyhedra: 
the  rectangular  bar  on  top,  the  trapezoidal  slab  beneath  it,  and  three 
hexagonal  prisms  below  that.  The  blade  proper  is  divided  into  four 
tiers  of  26  polyhedra  each,  for  a total  of  104.  These  are  wedge 
shaped  except  for  the  leading  and  trailing  edges,  which  are  made  up  of 
triangular  pyramids.  It  was  necessary  to  divide  the  blade  this  way 
because  the  rectangular  panels  which  are  drawn  are  not  planar.  Instead, 
each  rectangular  panel  is  divided  along  a diagonal  and  treated  as  two 
planes,  each  plane  being  a triangular  face  of  a polyhedron.  The  diagonal 
line  is  simply  not  drawn. 

Each  polyhedron  has  a number,  beginning  with  1 through 
5 for  the  fir  tree  top  to  bottom  and  6 through  109  for  the  blade  start- 
ing at  the  leading  edge  of  the  first  tier  and  progressing  rearward 
through  each  tier  before  going  on  to  the  next.  Furthermore,  each 
plane  of  each  polyhedron, has  a number  which  ultimately  corresponds 
to  a column  in  the  volume  matrix.  The  actual  plane  numbering  convention 
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does  not  matter.  In  this  case,  the  bottom  planes  of  all  segments  of 
the  fir  tree  are  assigned  number  1 and  numbering  proceeds  counter- 
clockwise as  seen  from  the  positive  x axis  (object  coordinates).  The 
near  end  is  next  to  last  and  the  far  end  last.  The  blade  uses  a 
different  convention  because  of  its  different  geometry.  Each  axial 
increment  is  made  up  of  lower  and  upper  prisms,  the  lower  being  for- 
ward. The  bottom  plane  of  the  lower  prism  is  number  1,  the  pressure 
(concave)  surface  is  number  2,  the  suction  (convex)  surface  is  number 
3,  the  diagonal  plane  is  number  4 and  the  forward  plane  is  number  5. 

The  diagonal  plane  of  the  upper  prism  is  number  1,  the  pressure  and 
suction  surfaces  are  2 and  3,  the  top  plane  is  number  4,  and  the  rear 
plane  is  number  5.  Leading  and  trailing  edge  segments  are  special 
cases  having  only  four  planes. 

Each  line  which  appears  in  the  drawings  represents 
the  intersection  of  two  planes  of  a polyhedron.  Accordingly,  each 
line  is  assigned  a pair  of  numbers  denoting  which  planes  of  which 
polyhedron,  in  the  form:  plane  number  + 10  times  polyhedron  number;  1 

I 

e.g.  15  would  denote  plane  5 of  segment  1;  and  13,  15  would  denote 
the  intersection  of  planes  3 and  5 of  segment  1.  These  numbers  are 
stored  as  LLIST  for  the  fir  tree  and  LLISTB  for  the  blade. 

Finally,  the  XYZ  coordinates  of  the  end  points  of 
each  line  are  stored  and  the  plane  equations  for  all  the  segments  are 
stored  in  a single  4 x 548  volume  matrix  according  to  the  numbering 
convention.  A list  called  MUST  marks  the  beginning  and  length  of  ' 
the  part  of  the  volume  matrix  correspond!- ng  to  a given  segment.  When  » 

a viewpoint  is  selected,  the  coordinates  are  translated,  rotated  and 
converted  to  perspective  as  described  above.  The  transformed  space  •• 

coordinates  are  scanned  for  maximum  and  minimum  x and  y values  and 
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the  scale  factors  described  in  Section  2.5  are  computed.  We  are  ready 
to  draw. 

Drawing  begins  with  the  upper  right  corner  of  the 
front  base  of  fir  tree  and  proceeds  clockwise  around  the  20  corners 
of  that  face.  Each  corner  has  three  lines  associated  with  it  and 
each  line  has  a pair  of  entries  in  LLIST.  The  first  line  goes  from 
the  current  corner  to  the  next  corner  on  the  same  face,  the  second 
goes  lengthwise  from  the  current  corner  to  the  corresponding  corner 
on  the  rear  face,  and  the  third  goes  from  that  corner  to  the  next 
corner  on  the  rear  face.  As  each  line  is  selected,  the  main  program 
passes  the  appropriate  pair  of  entries  from  LLIST  to  subroutine  FINDM. 
FINDM  decodes  the  LLIST  numbers  and  returns  the  segment  number  in  the 
variable  NM  and  the  volume  matrix  column  subscripts  for  the  two  planes 
whose  intersection  is  the  line  in  the  variables  MV  and  NV.  The  main 
program  then  checks  the  signs  of  the  Z coefficients  in  these  columns 
of  the  rotated  volume  matrix.  If  both  are  negative,  the  line  is  a 
back  line  and  is  entirely  hidden.  If  one  or  both  are  not,  the  main 
program  forms  two  vectors  consisting  of  the  x,  y and  z components  of 
the  beginning  and  end  points  of  the  line  and  passes  these  to  subroutine 
HIDE. 

Subroutine  HIDE  tests  the  given  line  against  several 
segments,  excluding  the  line's  own  segment  which  is  denoted  by  NB. 

The  segments  tested  against  are  those  which  appear  in  the  same  region 
or  "window"  of  the  picture  as  the  given  line.  Windowing  is  discussed 
in  greater  detail  below.  As  HIDE  tests  the  giv  n line  against  each 
segment,  it  keeps  the  smallest  t ,-n  (called  T1 ) and  largest  tffldx 
(called  T2)  from  all  the  tests  and  finally  draws  the  line  based  on 
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these  cumulative  values.  HIDE  calls  subroutine  SEEK  to  perform  the 
actual  testing,  giving  it  the  s and  d vectors  for  the  line  and  the 
beginning  column  and  number  of  columns  in  the  volume  matrix  which 
correspond  to  that  segment,  via  the  variables  J1  and  J2. 

Subroutine  SEEK  performs  the  functions  described  in 
Sections  4.2.5  and  4.2.6.  It  computes  the  p and  q vectors  and  attempts 
to  eliminate  some  pf  the  inequalities  via  the  tests  (4-9)  and  (4-10). 
Subscripts  of  survivors  are  kept  in  the  array  M.  If  less  than  two  sur- 
vive, the  given  line  is  treated  as  visible.  Otherwise,  intersections 
with  the  lines  t = 0,  t = 1 and  a = 0 are  computed  and  passed  to 
suDroutine  VALID,  which  tests  to  see  that  4-8  is  satisfied  for  all 

subscripts  in  M.  If  it  is  and  the  t is  smaller  than  the  current  t • 

min 

or  larger  than  the  current  t , VALID  updates  the  appropriate  one. 
Otherwise,  VALID  simply  returns.  The  intersections  with  each  other 
are  handled  identically. 

Drawing  of  the  blade  proceeds  similarly.  The  lines 
to  be  drawn  are  associated  with  the  lower  of  the  two  segments  associated 
with  each  axial  increment.  The  first  goes  rear-ward  along  the  bottom 
of  the  pressure  side,  the  second  goes  rear-ward  along  the  suction 
side,  the  third  goes  upward  on  the  pressure  side  and  the  last  goes 
upward  on  the  suction  side.  Thus,  the  program  proceeds  rearward  along 
a tier  drawing  a pair  of  L's  at  each  axial  increment.  The  trailing 
edge  is  closed  with  a line  from  the  trailing  edge  list,  LTE,  and 
the  top  of  the  final  tier  is  drawn  from  the  top  list,  LTOP. 

In  order  to  evaluate  the  time  Roberts'  algorithm  would 
require  to  draw  varying  numbers  of  segments,  an  option  to  draw  only 
part  of  the  blade  was  included  in  the  program.  The  user  may  specify  1 
to  4 tiers  and  2-26  segments  in  the  uppermost  tier  drawn  and  thereby 
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obtain  run  times  for  5 to  109  segments.  The  partial  blade  is 
furnished  off  b'  capping  the  partial  tier  with  the  bottom  lines 
of  the  next  tier  above  or  with  the  top  list  as  appropriate.  The 
uncovered  part  of  the  next  lower  tier  is  capped  with  the  remaining 
bottom  lines  from  the  unfurnished  tier.  The  back  of  the  last  segment 
in  the  unfurnished  tier  is  closed  with  the  two  vertical  lines  from 
the  next  segment  and  with  two  horizontal  lines  from  the  pressure  side 
to  the  suction  side,  one  at  the  bottom  and  one  at  the  top.  These  last 
two  do  not  appear  ir  any  line  list,  but  they  are  from  the  same  body 
as  the  two  vertical  lines;  therefore  NB  is  the  same  as  is  the  windowing 


A series  of  cases  were  run  from  the  viewpoint  (-100, 
1,  -65)  because  it  yielded  the  longest  observed  run  times  and  thus  gave 
worst  case  values.  The  resulting  values  were  fit  via  least  squares 


to  a curve  of  the  form. 


t = a nh 


(4-16) 


Where  t is  the  cental  processor  time  in  seconds  and  n is  the  number 
of  segments  drawn.  The  curve  fit  yielded 
a = 0.0162  and 

p = 1.491 

The  important  value  is  the  exponent  p.  Newman  and  Sproull  give  an 
exponent  of  2 and  conclude  that  the  algorithm  is  extremely  slow  for 
complicated  scenes.  Indeed,  this  implementation  without  windowing 
is  not  very  fast;  it  required  17.8  seconds  of  CDD  6600  time  to  draw 
the  entire  blade. 

Then  windowing  was  added  s described  below  and  the 
process  repeated.  As  might  be  expected,  the  program  ran  slightly 
slower  for  a small  number  of  segments  (break-even  is  between  5 and  10) 
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but  showed  a marked  improvement  at  higher  numbers;  it  took  only  8.84 
seconds  to  draw  the  entire  blade.  The  resulting  coefficients  from 


the  curve  fit  were 


a = 0.0529  and 


p = 1.089 


Again,  the  important  parameter  is  the  exponent.  Merely  by  dividing 
the  scene  into  fourths  and  testing  a line  only  against  these  segments 
which  occupy  the  same  regions  and  thereby  have  a chance  of  affecting 
it  reduced  the  exponents  from  nearly  3/2  to  nearly  linear  which  then 
makes  the  algorithm  viable  for  complicated  figures.  No  attempt  was 
made  to  optimize  the  number  of  windows  although  an  optimum  surely 
exists;  rather  the  intent  here  was  to  demonstrate  the  concept. 

4.2.11  Windowing 

The  turbine  blade  is  essentially  a vertical  object, 
therefore  the  viewing  area  is  divided  into  four  horizontal  windows 
stacked  one  on  another  as  in  Figure  22.  After  all  plane  and 
coordinate  rotations  are  done,  the  main  program  calls  subroutine 
WINDOW;  WINDOW  computes  the  height  of  the  window  segments  as 
fractions  of  the  frame  height;  i.e.,  they  are  in  page  (or  screen) 
inches  and  stores  them  in  the  array  YW.  It  then  scans  the  Y coordinates 
of  the  ends  of  each  segment,  passing  to  function  IN  THERE  the  scaled 
(ready  to  draw)  Y value.  IN  THERE  checks  the  Y value  against  the 
window  boundaries  and  if  YW(I)  < Y < YW  (1+1),  it  returns  the  value  I, 
where  I is  1,  2,  3,  or  4.  WINDOW  then  stores  the  segment  number  L in 
location  (I,L)  of  the  array  IN  which  is  dimensioned  (4,109).  For 
example,  if  segment  43  appears  in  window  3 (numbered  from  the  bottom 
up),  IN  (3,43)  = 43.  After  assigning  each  end  of  each  segment  to  a 
window,  WINDOW  checks  to  see  if  any  segment  is  in  three  or  four 
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windows,  that  is  if,  for  example,  one  end  is  in  window  1 and  the 
other  end  is  in  window  3 or  4,  the  segment  must  also  be  in  the 
intervening  window.  WINDOW  adds  these  entries  to  the  IN  array  as 
appropriate  and  returns. 

Where  the  time  to  draw  the  a line  arrives,  it  is 
a simple  matter  to  prepare  a list  of  segments  in  the  same  windows 
as  the  line.  One  takes  the  segment  number  for  the  line,  finds  which 
windows  that  segment  is  in,  and  prepares  a list  of  all  segments  in 
those  windows.  Subroutine  DOLIST  prepares  this  list,  which  is  called 
JUST,  for  use  by  subroutine  SEEK. 

4.2.12  Conclusion  for  Roberts'  Algorithm 

Roberts'  algorithm  has  been  shown  here  to  be  a useful 
method  of  generating  hidden-line  drawings  of  complex  objects,  although 
there  is  considerable  labor  involved  in  setting  up  the  necessary  data 
for  a given  object;  e.g.,  fitting  equations  to  all  the  planes.  The 
method  used  to  fit  planes  to  the  turbine  blade  is  described  in  Appendix 
E.  Because  of  the  necessary  preliminaries,  it  is  not  likely  that  one 
could  write  a general  program  which  would  accept  coordinate  data  for 
a given  object  and  generate  a hidden  line  drawing  directly.  The 
first  problem  one  would  encounter  is  how  to  divide  the  object  into 
planar  segments  which  are  all  convex.  Nonetheless,  one  could  easily 
adapt  most  of  the  subroutines  used  to  draw  the  blade  and  write  a new 
main  program.  The  windowing  scheme  could  also  be  adapted  to  the 
object.  Note  that  there  is  no  requirement  that  all  windows  be  the  same 
size. 

Roberts'  algorithm  has  the  added  advantage  that  it  is 
no  trick  at  all  to  generate  cutaway  drawings  as  shown  by  the  partial 
blades  drawn  in  Figures  20  through  22.  A particularly  appealing 
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application  would  be  to  show  the  internal  geometry  of  a cooled  turbine 
blade.  Similarly,  one  could  draw  such  machines  as  aircraft  or 
automobiles  and  remove  panels  to  show  the  internal  machinery. 


4.3  A Second  Line-Hiding  Algorithm 
4.3.1  In t roduction  to  LXL 

A second,  conceptually  simple,  line-hiding  algorithm 
was  developed  as  a parallel  effort  to  the  coding  of  Roberts'  algorithm. 
This  was  done  mainly  because  of  the  pessimistic  reviews  of  the  latter 
in  the  literature. 

The  present  algorithm  (which  we  will  refer  to  as  "LXL" 
for  "line  against  line")  is  based  to  some  extent  on  Warnock's  algorithm 
and  borrows  intact  some  of  Warnock's  subprograms.  Warnock's  algorithm 
was  tried  and  found  to  be  unsatisfactory  for  our  purposes,  not  only 
because  computing  times  were  too  long,  but  also  because  it  tended  to 
draw  lines  in  short  segments  (sometimes  dot-by-dot).  This  wasted 
plotter  time  and  gave  poor  looking  lines  due  to  plotter  digital- to- 
analog  converter  inaccuracy. 

LXL  was  developed  to  correct  this  latter  problem  by 
analyzing  each  line  in  turn.  For  a line  "I"  other  lines  are  tested 
to  see  if  they  lie  between  the  viewer  and  line  I,  and  if  their  images 
on  the  screen  plane  intersect  the  image  of  line  I.  An  ordered  list  of 
intersections  is  assembled  for  the  line  I and  each  line  segment  between 
intersections  is  tested  to  see  if  it  is  visible.  The  visible  segments 
are  drawn  and  the  program  moves  on  to  the  next  line.  Contiguous 
visible  segments  are  drawn  with  a single  pen  movement. 

This  basic  procedure  was  improved  by  dividing  the 
scene  into  smaller  parts  with  "intermediate  windows."  This  helps 
increase  speed  since  we  only  need  to  test  lines  and  polygons  which  are 
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in  the  same  intennediate  window  as  the  subject  line. 
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There  are  few  restrictions  on  the  kinds  of  figures 
which  can  be  drawn,  aside  from  memory  and  time  limitations: 

a)  The  figure  must  lie  wholely  in  front  of  the 

viewpoint. 


b)  except  for  quadrilaterals,  all  polygons  must  be 
planar.  Quadrilaterals  may  be  nonplanar, 

4.3.2  A Little  More  Detail 

In  a little  more  detail,  the  LXL  algorithm  works  as 


follows: 

1 . a ) A "large  window  rectangle"  (LWR)  is  defined 
which  just  encloses  the  projections  of  all  the  data  points  on  the 
screen  plane.  This  is  done  so  that  the  picture  can  be  sized  to  fit 
the  screen  and  also  for  efficient  processing. 

1. b)  This  LWR  is  subdivided  into  M x M equal  "inter- 
mediate window  rectangles"  (IWR),  where  M depends  on  the  number  of 
lines,  Nl,  in  the  figure.  A simple  optimization  gave 

M = integer  part  (0.5  + NL^) 

as  a good  choice.  The  analysis  of  the  optimum  IWR  size  is  given  in 
Section  4.3.4.  For  each  IWR: 

2.  a)  A list  of  unprocessed  lines,  whose  projections 
intersect*  the  IWR,  is  compiled.  We  designate  these  lines  as  "I" 
lines  --  they  are  the  lines  which  will  be  processed  in  this  IWR. 

2.b)  A new  rectangular  window,  JWR,  is  found 


* We  will  use  the  word  "intersects"  to  mean  that  the  projection  of 
a line  or  polygon  on  the  screen  plane  lies  at  least  partly  inside  the 
window. 
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which  just  encloses  all  the  "I"  lines.  All  lines  and  polygons  which 


affect  the  visioility  of  the  "I"  lines  intersect  JWR. 


2.c)  A list  of  all  lines  which  intersect  the  JWR 


is  compiled.  These  lines  are  designated  "J"  lines.  This  list  includes 


all  lines  which  intersect  the  "I"  lines. 


2 . d ) A list  of  all  polygons  which  intersect  the  JWR 


is  compiled.  The  polygons  are  designated  "J"  polygons.  This  list 


includes  all  polygons  which  cover  any  parts  of  the  "I"  lines. 


For  each  "I"  line  in  the  IWR: 


3. a)  A small  window  rectangle  (SWR)  is  constructed 


which  encloses  the'T'1  line,  except  for  its  end  points.  The  line's 


end  points  are  excluded  from  the  SWR  to  avoid  unnecessary  considera- 


tion of  lines  which  are  connected  to  the  "I"  line. 


3.b)  From  the  "J"  polygon  list,  a list  is  compiled 


of  polygons  which  intersect  the  SWR  and  lie  in  front  of  the  "I" 


line.  These  are  designated  "S"  polygons.  Polygons  which  have  the 


'I"  line  as  an  edge  are  excluded  from  this  list,  because  we  assume 


that  a polygon  cannot  hide  any  of  its  own  edges.1 


3.c)  If  the  SWR  is  completely  covered  by  an  "S' 


polygon,  then  the  "I"  line  is  completely  hidden--we  just  mark  it 


"processed"  and  move  on  to  the  next  "I"  line.  Otherwise-- 


3.d)  If  no  "S"  polygons  are  found,  then  the  line  is 


completely  visible--we  draw  it,  mark  it  "processed"  and  move  on  to  the 


next  "I"  line.  Otherwise- 


3e)  We  check  each  "J"  line  against  the  "I"  line, 


* This  is  not  necessarily  true  if  the  polygon  is  non-planar. 


to  see  if  their  projections  on  the  screen  plane  intersect.  If 
so,  and  if  the  "J"  line  lies  in  front  of  the  "I"  line,  we  store  the 
intersection  point. 

3.f)  If  no  intersections  are  found,  we  draw  the  line, 
mark  it  processed,  and  move  on  to  the  next  line.  Otherwise-- 

3.g)  The  intersections  are  arranged  in  an  ordered 
list  from  one  end  of  the  "I"  line  to  the  other.  We  consider  the  "I" 
line  to  be  cut  into  segments  by  the  intersections. 

3 . h ) If  the  mid-point  of  a segment  is  visible  (not 
covered  by  an  "S"  polygon),  we  note  it. 

3.i)  After  all  segments  have  been  checked,  we  draw  the 
visible  portions  of  the  line.  Contiguous  visible  segments  are  drawn 
with  single  pen  movements. 


3.j)  We  mark  the  "I"  line  "processed"  and  move  on 


to  the  next  line. 


2.e)  After  all  "1"  lines  in  the  current  IWR  have 


been  processed,  we  move  on  to  the  next  IWR. 


l.c)  After  all  IWR's  have  been  processed,  the  figure  is 


complete. 


4.3.3  Th ings  to  Come 

In  the  following  sections  we  will  discuss  some  of  the 
features  of  the  LXL  algorithm  and  its  subprograms.  First,  the 
optimization  of  the  IWR  size  is  presented.  This  is  followed  by  a brief 
paragraph  on  the  input  data  format.  Then  we  cover  in  some  detail 
the  "windowing"  technique  used  throughout  the  algorithm  and  the  way 
in  which  we  define  the  surfaces  of  twisted  (non-planar)  quadrilaterals. 
Finally,  some  resul ts, concl usions , and  recommendations  are  presented. 
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4.3.4  Sizing  the  Intermediate  Windows 

The  optimum  number  of  intermediate  windows  is  determined 
by  a rather  simple  analysis.  The  basic  assumption  of  this  analysis  is 
that  the  computer  spends  most  of  its  time  in  a "windowing"  subprogram 
named  CLIP.  (CLIP  is  used  to  determine  whether  a line  intersects  a 
window.)  Numerical  experiments  show  that  this  assumption  is  good-- 
the  computer  spends  about  half  of  its  time  in  CLIP. 

We  now  simply  minimize  the  number  of  calls  to  CLIP. 


A rough  count  of  the  number  of  calls  is  obtained  from  the  code: 


N 


CLIP 


= RT  - [NE* Np  + 2-N,  ] + N,  •NC*N 


L "c  "p  + (Nj  + 1)*N.-Np 

L L KJWR  1 L rSWR 


(4-17) 


Where  M 
N 

N, 


JWR 


SWR 


is  the  number  of  IWR's 

is  the  number  of  polygons 

is  the  average  number  of  edges  per  polygon 

is  the  number  of  lines 

is  the  average  number  of  polygons  in  a JWR 

is  the  average  number  of  intersections  per  line 
is  the  average  number  of  polygons  in  an  SWR 


Since  we  usually  make  up  figures  from  quadrilaterals,  let  = 4. 

Our  experience  has  indicated  that  Nj  is  between  1 and  2,  so  let's 
take  Nj  = 2.  Then  we  may  write  the  last  two  terms  of  Eqn  (4-17)  as 


N, 


[Nc 


+ 3/4  • Nr 


] 


JWR  SWR 

Since  an  average  SWR  is  much  smaller  than  an  average  JWR,  Np 


N 


p and  we  can  ignore  Np 
JWR  SWR 

If  the  number  of  polygons  is  very  large, 
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SWR_ 

(Again,  experience  indicates  Np  =3) 

KSWR 


V = Np/M 

JWR 


NCLIP  " m2‘[4-Np  + 2-Nl]  + 4-NL-Np/M2 

Finally,  for  figures  made  up  of  quadrilaterals, 
Np  = Nl/2 
and  we  have 


= 4-N.  • [fT  + N.  /NT] 


NfLip  is  minimized  if  M = 


With  this  choice, 


ncl  ip  8-V 


Numerical  experiments  gave  the  final,  practical 


choice  of 


M = int  [0.5  + NL  /q] 

It  is  worthwhile  to  compare  this  with  the  case  in 
which  intermediate  windows  are  not  used.  In  this  case 

"CLIP  4 WNP  ♦ (H,  * »-Nl-NPswr 
which,  using  the  same  arguments  as  above,  gives 


The  ratio  of  times 

<WTo>  4 4V/2 

clearly  shows  the  advantage  of  using  intermediate  windows,  since  there 
may  be  hundreds  or  thousands  of  lines  in  a figure. 

4.3.5  Data  Formats 


**.  \ 


Data  are  input  to  the  program  in  three  lists: 

1.  A point  list  which  contains  the  perspective 


I 


coordinates  (x/z,  y/z,  z)  of  pertinent  points  in  the  figure.  (Per- 
spective coordinates  are  used  throughout  the  code). 

2.  A line  list  which  contains  the  identifying 
subscripts  of  the  two  points  in  the  point  list  which  are  the  end 
points  of  each  line  in  the  figure. 

3.  A polygon  list  which  contains  the  identifying 
subscripts  of  the  lines  which  form  the  edges  of  each  polygon  surface 
element  in  the  figure. 

After  the  data  are  input,  the  initialization  section 
of  the  code  rearranges  the  elements  of  the  polygon  list  so  that  the 
edges  of  each  polygon  are  in  order  around  the  circumference.  Simul- 
taneously, it  appends  to  the  line  list  additional  lines  so  that  each 
polygon  edge  is  a distinct  line  not  used  for  any  other  polygon  edge. 
This  is  done  so  that  the  end  points  of  an  edge  may  be  switched  to  pro- 
vide an  orderly  progression  of  vertices  around  the  polygon.  That  is, 
the  second  end  point  of  one  edge  must  be  the  first  end  point  of  the 
next  edge,  and  so  on.  The  "windowing"  technique  requires  this 
ordering.  These  additional  lines  are  not  used  in  forming  the  "I" 
and  "J"  line  lists. 

4.3.6  Wi ndowing 

A "windowing"  technique  is  used  to  perform  much  of  the 
LXL  algorithm  - processing  lines  for  the  IWR's  and  JWR's,  and  process- 
ing polygons  for  the  JSR's,  SWR's,  and  line  segment  visibility.  The 
windowing  method  we  use  is  borrowed,  essentially  intact,  from  Warnock's 
code  as  presented  in  Reference  2. 
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The  windowing  sections  perform  two  basic  tasks: 

1,  For  a line  - determine  if  any  part  of  it  lies 
inside  the  window. 

2.  For  a polygon  - determine  if  any  part  of  any  edge 
lies  inside  the  window  and,  if  not,  whether  the  polygon  "surrounds" 
the  window.  The  first  part  of  the  polygon  task  is  the  same  as  the 
first  task. 

Most  of  the  windowing  tasks  are  performed  in  a sub- 
program named  CLIP.  The  first  section  of  CLIP,  "ICLIP",  determines 
if  a line  or  edge  intersects  the  window.  The  second  section,  "ANGLE", 
finds  the  angle  between  a line's  end  points,  measured  from  the  center 
of  the  window. 

ICLIP  divides  the  screen  plane  into  9 regions  by 
extending  the  sides  of  the  window.  Each  region  is  assigned  a unique 
4 bit  code  as  shown  in  Figure  23: 


The  following  steps  are  then  performed: 


a)  Determine  the  codes  of  both  end-points  of  the 


line.  Call  them  and  C^. 

b)  If  C.|  and  are  both  0000,  then  the  line  lies  wholly 
within  the  window,  so  we  can  set  the  indicator  "ICLIP"  to  .TRUE,  and 
exit  to  the  calling  program.  Otherwise  - 

c)  If  either  C]  or  C?  is  0000,  then  the  line  inter- 
sects the  window  frame  once.  We  must  then  determine  the  intersection 

point  before  setting  "ICLIP"  to  .TRUE,  and  exiting.  Otherwise  - 

d)  If  the  Boolean  product  C-j  • C^  is  not  0000,  then 

the  line  cannot  cross  the  window,  so  we  can  set  "ICLIP"  to  .FALSE, 
and  exit.  (This  is  why  the  4-bit  code  was  chosen.)  Otherwise  - 

e)  Clip  off  any  parts  of  the  line  that  Jo  not  fall 

between  the  vertical  window  frame  edges  and  go  through  steps  a)  - 
d)  with  the  remaining  line  segment.  Then,  if  we  do  not  exit  - 

f)  Clip  off  any  parts  of  the  segment  that  do  not 
fall  between  the  horizontal  window  frame  edges.  Then  go  through 
.Steps  a)  - d)  with  this  remaining  line  segment.  An  exit  will  occur. 

For  exa  pie,  c nsider  the  three  lines,  A,  B and  C,  in  Figure  24a: 


FIGURE  24a.  Example  of  ICLIP  Operation 


Line  A is  eliminated  by  Step  d)  because  the  two's  bits  for  both  end 
points  are  "on." 

Lines  B and  C are  not  immediately  eliminated  by  Steps  a)  - d)  and 
so  are  clipped  by  Step  d)  to  give  the  segments  shown  in  Figure  24b. 


FIGURE  24b.  Example  of  ICLIP  Operation  (Cont.) 

Now  segment  B'  is  eliminated  by  Step  d)  - The  end  points  have  the  same 
code.  Segment  C'  is  not  eliminated  so  we  go  to  Step  e)  which  gives 
the  segment  C'1  shown  in  Figure  24c. 


Segment  C"  is  oroperly  identified  by  Step  b). 

The  reason  for  the  "ANGLE"  section  is  the  following: 
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If  the  sides  of  a polygon  are  taken,  in  order,  proceeding  from 
vertex  to  vertex,  the  the  sum  of  the  angles  subtended  by  successive 
vertices  and  an  arbitrary  point  will  be  0°  if  the  point  lies  outside 
the  polygon  and  +360°  if  the  point  lies  inside. 

Determining  the  angle  subtended  by  the  edge  if  it  does 
not  intersect  the  window  is  performed  by  the  "ANGLE"  section  in  a 
rather  crude  manner  since  we  don't  need  the  ' tual  angle,  only  a 
consistent  system  of  counters  which  will  enable  us  to  determine 
whether  a polygon  completely  covers  the  window. 

To  do  this, we  again  subdivide  the  screen  plane  as 

above  and  assign  to  the  subdivisions  the  counters  shown  in  Figure  25. 

I < 

i » 

3 • 2 i 1 

I • 


5 : 6 I 7 


• I 

FIGURE  25.  ANGLE  Codes  for  Regions  of  Screen  Plane 
Then,  basically,  we  define  the  angle  subtended  by  a line  as  the 
difference  between  the  counters  for  the  regions  in  which  the  line's 
end  points  lie.  For  example,  a line  with  its  first  end  point  in 
Region  1 and  its  second  end  point  in  Region  4 subtends  an  angle  of 
3. 

This  simple  definition  must  be  adjusted  because  it 
allows  angles  of  magnitude  greater  than  4 (which  represents  180°)  - 
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for  example,  a line  running  from  Region  7 to  Region  0.  This  is  cor- 
rected by  adding  or  subtracting  8 (360  ) to  produce  a result  between 
-4  and  +4. 


A second  problem  arises  if  the  end  points  of  the  line 
lie  in  diagonally  opposite  regions  (1  and  5,  or  3 and  7).  For  example. 


consider  Lines  A and  B 


in  Figure  26: 


FIGURE  26.  Example  of  ANGLE  Ambiguity 

Both  lines  are  calculated  to  have  the  same  angle  (4).  However,  the 
angle  for  line  B should  be  -4.  This  problem  is  due  to  the  fact  that 
we  can't  tell  which  side  of  the  window  the  lines  fall  on.  The  solution 
to  this  ambiguity  is  to  cut  the  line  into  two  segments  and  sum  the 
angles  of  the  segments.  The  best  way  to  do  this  is  to  cut  the  line 
at  one  of  the  window  frame  lines,  say,  the  right-hand  vertical 
frame  line  as  shown.  Doing  this  to  line  B gives,  for  the  segment 
from  end  1 to  the  frame  line,  an  angle  of  -3  and,  for  the  rest  of 
the  line,  an  angle  of  -1.  Then  the  total  angle  is  -4,  which  is 


(If  we  sum  the  angles  subtended  by  the  edges  of  a 
polygon  for  a particular  window,  the  sum  will  be  either  0 or  + 8.  If  +8, 


the  polygon  covers  the  window,  if  0,  it  doesn't. 

The  CLIP  subprogram  is  used  as  follows: 

a)  For  lines,  only  the  "ICLIP"  section  is  used. 

b)  For  edges  of  polygons,  the  "ICLIP"  section  is 
executed  and  only  if  ICLIP  is  returned  .FALSE.,  then  the  "ANGLE" 
section  is  executed. 

4.3.7  Non-Planar  Quadri 1 ateral s 

In  order  to  find  out  whether  a polygon  hides  a point 
of  interest  (e.g.,  the  center  of  a line  segment)  we  must  find  out  if 
the  intersection  with  the  polygon's  surface  of  a ray  from  the  observer 
through  the  point  of  interest  is  beyond  the  point.  For  non-quadrilateral 
polygons , this  is  easy  since  they  must  be  planar.  However,  for  con- 
venience, we  have  allowed  quadri laterals  to  be  non-planar,  which 
complicates  things  a bit. 

We  usually  prefer  that  solid  figures  be  constructed 
of  quadri lateral  surface  elements,  as  opposed  to,  e.g.,  triangles. 

But  quadri lateral s are  not,  in  general,  planar.  Therefore,  in  order 
to  find  the  distance  to  the  surface  of  a quadrilateral,  we  must  first 
decide  on  a convention  for  defining  the  shape  of  the  surface. 

We  choose  to  define  the  quadrilateral  surface  to 
be  generated  by  straight  lines  as  illustrated  in  Figure  27: 
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FIGURE  27. 


Definition  of  Quadrilateral  Surface 


A straight  line  (ab)  lies  in  the  surface  if  points  £ and  b are  defined 
such  that 


/ it  - i It 
Ha  ' l12  4b  ' l4T 

It  can  easily  be  shown  that  the  same  surface  is  defined  if  equivalent 
straight  lines  are  drawn  between  the  other  two  sides.  Thus,  this 
definition  does  not  depend  on  the  choice  of  sides. 

With  this  surface  shape,  we  can  now  determine  the  distance 
to  a point  £ on  the  surface.  From  the  Figure  27,  we  have 


fa  * r‘l  + ’ (r'2  ‘ fl> 

?b  = r*4  * « (?3  ‘ ?4)  <4-19> 

"p  ' fb  * 8 (?a  • rb) 

where  r is  the  vector  from  the  viewpoint  to  the  point  subscripted  and 
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The  vector  equations  represent  nine  equations  with  nine  unknowns 


The  solution  of  these  equations  is  complicated  by 


the  screen  plane 


then  equations  (4-19)  reduce  to  the  non-linear  vector  equation 


where,  for  convenience,  5 


by  taking  the  vector  product  of  both  sides  of  this  equation  with 


which  gives,  after  a bit  of  manipulation 


Next,  the  left-hand  side  of  the  equation  is  eliminated  by  taking  the 
scalar  product  of  both  sides  and  r to  give 


This  is  a quadratic  equation*  for  a which  is  solved  for  the  root 


This  equation  may  be  written  in  terms  of  r 


r'  *(r  x r ) = 0 which  is  a mathematical  statement  of  the 

fact  that  the  vector  from  the  viewpoint  to 
point  £ must  lie  in  the  plane  defined  by  the  vectors  fromthe  viewpoint 
to  point  b and  to  point  a. 


0 < a < 1.  The  distance  to  the  surface,  z^,  is  then  found  by  solving 
any  one  of  the  three  scalar  equations  represented  by  the  vector 
equation  (4-20). 

(A  twisted  quadrilateral,  viewed  from  some  directions 
can  have  two  intersections  with  a line-of-sight.  In  this  case,  both 
roots  of  equation  (4-20)  will  be  between  0 and  1.  The  solution  which 
gives  the  smaller  distance  from  the  viewpoint  is  used.) 

4.3.8  Discussion  of  LXL 

The  LXL  algorithm,  as  outlined  above,  was  coded  in 
FORTRAN  to  run  on  a CDC  6600  computer  system.  As  initially  coded,  it 
was  found  to  execute  an  order  of  magnitude  faster  than  Warnock's 
algorithm  for  the  same  figure.  An  additional  doubling  in  speed  was 
achieved  by  recoding  selected  subprograms,  including  "CLIP,"  in  CDC 
COMPASS  Assembly  Language.  This  allowed  us  to  take  full  advantage  of 
the  central  processing  unit's  parallel  architecture. 

As  an  example,  the  surface  of  the  aircraft  in  Figure  28 
contains  1100  lines  and  690  polygons. t It  took  75  CPU  seconds  to 
process.  (As  a point  of  interest,  the  CLIP  subprogram  was  called 


300,000  times . ) 


The  use  of  non-planar  quadrilaterals  is  both  a strength 


and  a weakness  of  LXL.  It  allows  the  user  flexibility  in  defining 
figures  and  satisfies  our  preference  for  figures  with  quadrilateral 
surface  elements.  It  does,  however,  have  some  drawbacks,  the  most 
serious  of  which  is  the  fact  that  a non-planar  quadrilateral  may  hide 
a line  which  none  of  its  edges  intersect  in  the  screen  plane. 

tThe  data  lists  for  this  drawing  were  borrowed  from  Capt  R.  R.  Black 
of  the  Air  Force  Flight  Dynamics  Laboratory. 
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The  code  cannot  handle  this.  We  do  not  think  this  problem  is  significant 
if  we  limit  ourselves  to  quadri lateral s which  are  nearly  planar.  In 
fact,  we  haven't  noticed  any  occurrences  of  this  in  any  of  our  experi- 
ments . 

Appendix  F contains  a listing  of  the  LXL  code  and  a 

sample  data  set. 

4 . 4 Comparison  of  Performances:  Roberts  Algorithm  vs.  LXL  Al- 

gori thm 

In  an  attempt  to  determine  the  relative  performances  of  the 

code  for  Robert's  algorithm  and  the  LXL  code,  the  turbine  blade  drawing 

in  Figure  17  was  processed  using  both  codes.  The  resultant  drawings 

were  identical  in  appearance.  The  LXL  code  was  about  25%  faster  in 

execution.  However,  this  is  misleading  for  two  reasons:  1)  the  LXL 

code  obtained  a significant  speed  advantage  because  assembly  language 

code  was  used  in  some  sections  - Robert's  algorithm  was  coded  in 

FORTRAN  only.  2)  For  figures  constructed  principally  of  quadrilaterals, 

1 5 

the  execution  time  for  the  LXL  code  is  proportional  to  for 

Robert's  algorithm,  This  means  that  Robert's  algorithm  has  the 

edge  in  speed,  at  least  potentially. 

The  LXL  algorithm  does,  however,  enjoy  considerable  advantages 
in  the  form  of  the  input  data  and  in  the  ease  of  understanding  the 
algorithm.  The  simple  form  of  the  input  data  could  offset  the  execution 
speed  disadvantage  when  complicated  figures  are  to  be  processed  (such 
as  the  aircraft  of  Figure  28). 

Robert's  algorithm  has,  potentially,  a major  speed  advantage 
for  complex  figures.  (We  estimate  the  execution  time  for  Robert's 
algorithm  of  the  aircraft  figure  to  be  about  40  seconds  - compared  to 
75  seconds  for  LXL.)  Unfortunately,  this  speed  advantage  is  offset  by 
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the  considerable  amount  of  work  (and  ingenuity)  required  of  the  user 
to  break  up  the  figure  into  convex  polyhedra. 

As  might  be  expected,  the  authors  were  unable  to  agree  on 
which  of  the  two  algorithms  was  "better." 
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APPENDIX  A 


Listings  of  LEVEL!  and  LEVEL2 

The  basic  versions  of  the  two  contouring  subroutines  are  listed 
herein.  Also  listed  is  a driver  program,  ONE,  which  was  used  to  create 
Figures  2 and  3. 

The  listings  which  appear  in  this  and  the  other  appendices  contain 
occasional  continuation  lines  marked  with  a dollar  sign.  These  were 
created  by  the  listing  program  to  maintain  the  right-hand  margin  and 
do  not  appear  in  the  actual  code.  A line  containing  two  or  more  state- 
ments separated  by  dollar  signs  is  real,  however;  CDC  FORTRAN  Extended 
accepts  this  as  well  as  statements  of  the  form  A=B=C=D=0.0  and 
symbolic  names  of  up  to  seven  characters.  The  forms  READ*  and  PRINT* 
are  list-directed  (format-free)  input-output,  used  primarily  for 
interactive  programs. 
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P RO'cRAI  QNl  (PLuT ,0UTPUT=402B,TAPEo=0UTPUT> 
DIMENSION  X(6)  ,Y(b)  ,Z  (6,5),H(7) 

LOGICAL  U (6 » 5 ) 

DATA  X f 0.0,1.0,2«  0,3.  0,4.  0,5.0  / 

0 A T A Y / 0. 0,1. 0,2. 0,4.  0,4.  0 / 

DATA  (Z  ( I,  1)  , 1=1, 6)  ' 2. 0 , 3. 0 ,6. 0, 7. 0 ,4. d,  3. 0 / 
data  ( z ( i , 2 ) , I = l , 6 ) y h.q,.?.q,9#q,7.0,6.o,4«g  / 
DATA  (Z(l,3) , I=l,o)  f 4.0,6. 0,3. 3,5. 0,6. 0,5.0  / 
DATA  (Z ( I , h) ,1=1,6)  / 3. 0,5. 0,7. 0,6. 0,o. 0,3.0  / 
DATA  (Z(I,3) ,1=1,6)  Y 3.0,4, 0,6.0, 6. 0,4. 0,2.0  / 
DATA  H / 2. 5, 3. 6, 4. 5, 5. 6,  6.  5, Z. 6, 3. 5 / 

U(l,l>  = .FALSl. 

CALL  PLOT  (2. 0,4. 0,-3) 

CALL  PlOTPM  ("PH  PLAIN  PAP^R  PLlA;,E.",3> 

I = b 
J = 3 
K = 7 

1>  IGO  = 1 

GO  TO  3 

1 CA.L  L E V £L 1 ( X, Y,Z , H, U, I, J, K) 

CALL  PLOT  (6.b,0.0,-J) 

IGO  = 2 

GO  TO  3 

2 CONTINUt 

It  CALL  Lt\/EL2  ( X , t , Z , H , U , I , J , K ) 

CA.L  PLOT  <0.5,0. 0,-3) 

CALL  SY480L  ( 0 . 0 , 0 . 5,  0 . Id  5 , " FiNI  SHED"  , 9 0 . 0 , 3) 
CALL  PlOTl 

ft  i Si  OP 

C DRA^  BOUNDARY 


3 CAlL 

PLOT 

(X  (6) , Y ( 1) , 2) 

CA.L 

PLOT 

(X  (b)  ,Y  (6  ) , 2) 

CAwL 

plot 

(X(l) , Y ( 5 ) , 2 ) 

CALL 

PLOT 

(X  ( 1)  , Y { 1 ) , 2) 

GO  TO 

(1  , 

2),  IGO 

END 

p' 

;3 

4 

* 

5 


7 4 


1 1 


J* 
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suorjutine  leveli  <xm,ym, m:sh,hgts, unused, p,q,rj 
INTEGER  P,0,R 
RtAL  MESH 

COMMON  /CUE/  OPEN, FIRST, LAST, H, POLAR 

DIMENSION  XM(P) , YM(Q»  , HGT  S ( R)  ,MtSH(P,Q) , UNUSE 0(P,Q) 

LOGICAL  FIRST , L A ST , 03 £ N , UNUSE 0 , POL AR 

THIS  PROCEDURE  li  USED  FOR  CONTOURING  OVER  A 
RECTANGULAR  MESH.  A MOKE  DlTAIlEO  DESCRIPTION 
IS  jIVEN  IN  SECTION  4 OF  THE  ORIGINAL  REPORT. 

ADA3  TEO  FROM  ALGOL  PROOtDURE  CONTOUR1 

8.R.  HEAP,  tT  AL  'THREE  CONTOURING  ALGORITHMS', 

NPL-61,  NATIONAL  PHYSICAL  LAB, 

TEOJINGTON  ENGLAND,  OEC.  19b9,  P.  14 

POLAR  = UNUSED (1,1) 

JM  - 0-1 
IM  = P-1 

EAC3  CONTOUR  HEIGHT  IS  Dt ALT  WITH  IN  TURN. 

00  7 <=1,R 
H = HGTS(K) 

THE  ARRAY  UNUSEO  IS  SET  UP  FOR  THIS  HEIGHT. 

00  1 J=2,JM 
00  1 I =? , I M 

UN  JSEQ ( 1 » J)  = MtSH(I-l,J)  .LT.  H .AND.  MESH(I,J)  .Gt. 
? H 

1 CONTINUE 

THE  BOUNDARY  OF  THl  M c.S  H IS  3CANNE0  FOR  THE 
BEGINNING  OF  ANY  OPtN  CONTOUR  OF  HEIGHT  H. 

OPEN  = .TRU-. 

DO  2 1=2, P 

IF ( HESHl 1-1, 1)  .LT.  M .AND.  MESH(I,1)  .GE.  H)  CALL 

1 FOLLOW  (1,1,-1,0,XM, YM,M£5H,P,Q, UNUSEO) 

2 CONTINUE 
00  3 J=2,3 

IF  < MESH  ( P , J- 1 ) .LT.  -I  .AND.  MlSH(P,J)  .Gt.  H)  CALL 

1 FO.uOW  (P,J,0,-l,XM,YM,Mt5H,P,Q, UNUSED) 

3 CONTINU; 

00  4 L = 1 , I M 

1 = P-L 

IF(  McSH(  1 + 1,0)  .LT.  H .AND.  M&.SH  < I , d > .GE.  H)  ~ A LL 

1 FOuuOW  ( 1 ,0 , 1,  0,  XM.YMjMt.iH  , P , T.  JE  OT^ 

4 CONTINUE  * 
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30  3 L = 1 » JM 

j = a-L 

IF  ( itism  1,  J+l)  . LT  . H .AND.  MESH  ( 1 , J)  . 
1 FOLLOW  (1,  J,0,l,XM,YM,MiSH,F,Q, UNUSED) 
5 C CMTINU: 


GALL 


THE  ARRAY  * UNUSED  * IS  SCANNED  FOR  THE 
bEGINNING  OF  ANY  CLOScD  CONTOUR  OF  HEIGHT  H. 


QP-N  = . FALSc. 

DO  6 L=2,JM 
J = Q-LH 
DO  b 1=2, IH 
I = P-,1^-1 

IF < UN JS: D (I , J) > CALL  FOLLOW  ( I , U , - 1 , 0 , XM , YM , MESH , P , i 
& , UNUSED) 

6 C 0 N T I NU  ~ 

7 CONTINU 
RET JRN 
END 


♦ 
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SUBROUTINE  FOLLOW  d F , JF , I A F , JA F , XM , Y M, MESH , P , Q, UNUsE 
s 0) 

INI  £ GER  P,Q,TEMP 

LOGICAL  OPEN, FIRST , LAST , JNJSED , POlAR 
REAL  MESH 

DIMENSION  XMIP)  ,YH(0)  , dtS HIP, Q)  , UNUSE D(P,Q) 

THE  PROCeOORE  STARTS  3Y  SETTING  LIP  THE  INITIAL 
VALDES  OF  VARIOUS  QUANTITIES. 

COMMON  /CUE/  OPEN, FIRST, -AST, H, POLAR 
FIRST  = .TRUE. 

LAST  - .FALSE. 

I = IF 
J = JF 
IA  = IAF 
JA  = JAF 
Z = MESH ( I , J) 

ZA  = MESHII+IA, J+JA) 

NEXT  POINT 

THE  PuSITlON  OF  T He.  POINT  T WHlRE  THE  CONTOUR 
CUTl>  BETWEEN  (1,J)  ANO  d + 1 A , J +•  J A ) is 
CALCULATED  USING  INVERSE  LINEAR 
I NT  . R POL  AT  I ON. 

1 T = 0.  0 

IFIZ  . NE • ZA)  T = (Z-H)/(Z-Z A) 

X = XM(i)-T*(XM(I)-XM(I+IA) ) 

Y = YM ( J) -T* ( YM (J) -YM (J ♦ J A ) ) 


TE i TS  ARE  NOW  MACE  TO  SEc.  IF  T IS  THE  LAST  POINT 
ON  THE  CONTOUR. 

Ir  ( OPEN)  GO  TO  2 


I F ( I A ,EQ. 
GO  TO  3 

-i 

. ANO. 

• 

NOT. 

UNUSEO (I 

,J))  LAST 

= .TRUE 

IFIFIRST) 

GO 

TO  4 

I F ( J A ,lQ, 
& » < k J- • 

0 . 

ANO. 

( J 

.El. 

1 .OR. 

J . LQ.  Q)  ) 

LAST  = 

iF(ja 

0 . 

ANO. 

d 

. El. 

1 • OK. 

1 .tQ.  P)  ) 

LAST  = 

J .TRUE. 

3 IFTLASn  GO  TO  4 


THE  MARKtR  IN  T He  ARRAY  UNUSEO 
IS  CANCELLED  IF  NceESSARY. 


I F 1 1 A . e Q . -1)  UNUSiOd.J)  = .FALSl. 
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NEW  POINT 

THE  COOkOINATES  JF  i ARl  OUTPUT 
TO  THE  PROCEDUkc  DRAW. 

4 CALL  DRAW  (X, Y, POLAk, FIRST, LAST) 

IF( LAST)  RETURN 

TESTS  ARE  NOW  HAJc  TO  Stt  WHICH  OF  THE  H£SH 
LIN.S  THE  CONTOUR  CROSSES  NilXT. 

THE  VALJES  OF  Z,  ZA,  I,  IA,  ANO  JA  ARE 
ADJUSTED  BEFORE  GulNG  ON  Tu  FIND  A NEW  POINT  T, 

ZB  = WE5H(I+Jm, J-IA) 

I F ( Z 3 ,GE.  H)  GO  TO  5 

ZA  = Z 3 

TERR  = IA 

IA  = JA 

JA  = -TEMP 

GO  TO  7 


1 • 

IF ( ZD  .GE.  H) 

$ 

Z 

= Z 3 

ZA 

= ZC 

I 

= I ♦ J A 

J 

= J-I  A 

1 i 

GO 

TO  7 

6 Z 

= ZC 

I 

= I*Im*JA 

J 

= J-IA+JA 

TE  HP  - JA 

JA 

= IA 

IA 

= -T.HP 

7 FIRST  = .FALSE. 
GO  TO  1 
END 
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SUBROUTINE  LEVEL2  ( X 1 , YM, M_ Srt , HGTS , UNUS lO , P , 0, R) 
INTEGER  P,Q,R 
R-AL  MESH 

SUMMON  /CUE/  0PEN,FIRiT,LA51  »H, POLAR 
LOGICAL  FIRsT , LAST , 03£ N, UN USE D , POL AR 
DIMENSION  XM(PI ,YM(Q» ,HGT jlR) ,MESH(P,Q)  .UNUSED (P,Q> 

HIS  PROCtOURE  IS  USEJ  FOk  CONTOURING  0VE9  A 
RECi ANGULAR  MESH,  AN3  IS  A MORc  ELABORATE  ROUTIN 
THAN  COATOUR  1.  A MOr\E  DETAILED  DESCRIPTION  IS 
GIVEN  IN  SECTION  5 OF  THE  ORIGINAL  RcPORT. 

ADAPTEO  FROM  ALGOL  PROCtOURE  C0NT0JR2, 

3.R.  HEAP  El  AL,  'THREE  CONTOURING  ALGORITHMS', 
MPl  - ONAM  - 91,  NATIONAL  PHYSICAL  LAB., 
TEDDINGTON,  ENGLAND,  DEC.  1969,  P 14. 

PO.AR  = UNUSED (1,1) 

jm  = a-i 

IM  = P-1 


EACH  CONTOUR  HEIGHT  IS  DEALT  HITH  IN  TURN. 


DO  7 K=1,R 
H = HGTS(K) 

THE  ARRAY  UNJSEO  IS  SEi  UP  FOR  THlS  HEIGHT. 

DO  1 J=2,JM 
DO  1 1 = 2, IM 

UN JSED  (I  , J J = MESH ( I- 1 , Jl  . LT . H .AND.  MESHII.J)  .GE 
f H 

1 COnT INJE 

THc  BOUNDARY  OF  THE  MESH  IS  SCANNED  FDR  THE 
BEGINNING  OF  ANY  OPEN  CONTOUR  OF  HEIGHT  H. 

OPEN  = . T R JE • 

DO  2 1=2, P 

IF ( MESH  C I- 1 , 1 > .LT.  H .AND.  MESH (1,1)  .Gc.  H)  CALL 
1 PURSUE  <I,1,-1,Q,Xm, YM,MtSH,P,Q,UNUSEO) 

2 CONTINUE 
DO  3 J = 2 , 3 

IF<M£SHIP, J-l)  .LT.  H .AND.  MtSH(P.U)  . GE.  H)  uALL 
1 PURSUE  (P,J»  0, -1 ,XM, YM,M£ih,P,Q,UNU6EQ) 

3 CONTINUE 

DO  a L=1 , IM 
I = P-L 

IF(M£SH(  1*1,  Q)  .LT.  H .ANO.  MtSH(I,Q)  .GE.  H)  CALL 
1 PURSUE  (1,0, 1 , 0,XM,YM,MiSH ,p,Q,UNUScO) 
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If  CONTINU: 

DO  > L = 1 , JM 
j = d-L 

IF(MESH(  1,  J+l)  .LT.  H .A, 'JO.  MESH(1,J)  . GE.  H)  CALL 
1 PURSUE  ( 1,J , Of  1, XM, r M , MESH ,P, Q, UNUSED) 

5 CONTINUE 

THE  AR*AY  UNUSED  IS  SCANNED  FOR  THE  BEGINNING 
OF  ANY  CLOSED  CONTOUR  OF  HEIGHT  H. 

OPEN  = . FALSc. 

DO  5 L=2,UM 
J = O-L+1 
DO  6 M=?,IM 
I = P-M+l 

IFCJNUSEDd,  J)  ) CAL.  PURSJt  ( I , U , -1 , 0 , XM , YM, MESH , P , Q 
$ , JNJSED) 
b CONTINU' 

7 CONTINUE 
RE  TURN 
END 
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SU3R0JTINE  PURSUE  ( I F , J F , I* F , J AF , XH , Y M , MESH , P , Q , J NUSE 
t D ) 

INTcGlR  P,  Q»  T EHP 

LOCI  C4  l.  OPEN, FIRST, LAST, JNJ St J, RIGHT, POLAR 
Re  A L HE  3 H 

DIMENSION  XM(P) , YM(Q) ,MtSH(P,Q) , UNUSED ( 0 , Q) 

C 

C THIS  PROCEDURE  IS  USED  TO  FOLLOW  A CONTOJR  OF  A 

GIV.N  HEIGHT  THROUbH  THl  MlSH. 

COIMON  /CUE/  OPEN,FIRSr,LA3T  ,H, POLAR 

THE  PRO^EDUR-  BEGINS  8Y  StTTlNG  OP  THE  INITIAL 
VALJlS  OF  VARIOUS  QUANTITIES. 

FIRST  = .TRUE. 

L A i T = • F A L S c. « 

I = IF 
J = JF 
IA  = IA- 
JA  = JAF 
Z = MES  H ( I , J ) 

ZA  = ME5H<I<-IA,  J + JA) 

NEXT  POINT. 

1 T = 0.  a 

IF(Z  .Nt.  ZA)  T = (Z-i)Z(Z-ZA) 

th_  position  of  the  point  hhekc.  the  contour 

CROSSES  OA  (S-E  cIo.  5)  IS  CALCULATED  USING 
I.\H/_KSE  LINEAR  I J < lR’OLAT  ION. 

X = XMd)-TMXM(I) -M(H-IA)  ) 

Y = YM ( J ) -T* < YM < J) - YM ( J+JA) ) 

TlSTS  ARE  NOW  PAJl  TO  SEl  IF  T Ii  THE  L Ai  T POINT 
ON  THE  CONTOJR. 


IF ( OPEN)  oO  TO  2 

IFIIA  .lQ.  -1  .AND.  .NOT.  JNUSED(I,J))  LAST  = .TRUw. 
GO  TO  J 

2 IF < F I RST ) GO  TO  4 


I F ( J A .EQ. 
1 .TRUE. 

0 • A N J • 

( j 

. c.U. 

1 . OR. 

J • l Q • Q ) ) 

LAST 

IF(JA  .Nl. 

0 .AND. 

(i 

. L3. 

1 . OR. 

I . ECU  P)  ) 

LAST 

1 .trje. 

3 IF(LAST)  GO  TO  h 

c 

C THE  MARXlR  in  THE  akRAY  'UNUSED'  IS  CANCcLLlD 
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IF  NECESSARY. 

IF'UA  . LQ.  -1)  JNUSi  D ( I,  J ) = . FALSc. 

NEW  POIMT. 

T Hi  COORDINATES  df  t are  output  to  the 
PRO^tDURE  DRAW. 

A CAL-  DRAW  <X,Y, POLAR, FIRST, LAST) 

IF(LAST)  RETURN 
FIRST  = .FALSE. 

THE  HtlGHTS  OF  THl  POINTS  8 AND  C (SEE  FIG.  8) 

ARE  EXTRACTED  AND  THE  HEIGHT  OF  0 CALCULATED  AS 
THE  AVERAGE  OF  THt  HEIGHTS  OF  0,  A,  3,  AND  C. 

Z 3 = MESHdf  JA,  J-IA) 

ZC  = M£S  H(  !«■  I A ♦ JA  , J-I  A ♦ JA  ) 

ZD  = 0.28*  <Z  + ZA«-Z8  + ZC> 

A TEST  IS  HADE  TJ  StE  WHICH  OF  THE  LINES  OD  OR  AD 
THE  CONTOUR  CROSSES. 

I F ( Z J .St.  H)  GO  TO  7 

THE  CONI  OUR  CROSSES  00  ANO  THE  COORDINATES  OF  THE 
POINT  WHERE  THIS  HAPPENS  ARt  CALCULATED  UoING 
INV.kSE  LINEAR  INTERPOLATION  AND  ARE  OUTPUT  TO 
THE  PROCEDURE  DRAW. 

RIGHT  = .TRUE. 

T = 0.0 

I F ( Z • N_  • Zu)  T = 0. 8* (Z-H )/ (Z-Z0) 

X = X W ( I ) -T*(XM(I) -XH (I+IA+JA) ) 

Y = YH ( J) -T* ( YH ( J) -YH ( J+JM- IA) ) 

CAlL  DRAW  (X, Y, polar, FIRST, LAST) 

A TEST  IS  NOW  MADE  TD  StE  WHETHER  THE  CONTOUR 
CROSSES  03  AS  IN  CASE  (il>  OF  FIG.  b.  IF  SO,  A 
JUMP  IS  MAOl  TO  THE  l ADEL  ‘TURN  RIGHT*. 

IF(Z3  . LT,  H)  GO  TO  3 

TOP  RIGHT. 

5 T = 0.  0 

IF ( Z 3 • N Z0»  T = 3.  8MZ8-H) /(Z3-Z0) 

THE  CONTOUR  CROSSti  3D  «ND  THt  COOROlNATES  OF 
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POINT  WHERE  THIS  HAPPENS  ARl  CALCULATED  USING 
INVlRSl  LINEAR  INTERPOLATION  AND  ARE  OUTPUT  TO 
THE  PROCEDURE  DRAW. 

X = XM(I*JA> -TMXMtH-JAJ-XMlI  + IA)  ) 

V = YM(J-lA)-T*(YM(J-lA)-YH(J+-JA)  ) 

CAwL  DRAW  (X,Y,POLAF, FIRST, LAST) 

A T.ST  IS  MAOt  TD  ScE  IF  THE  SITUATION  IS  AS  IN 
CAS.  (V)  OF  FIG.  y.  IF  SO  A JUMP  IS  MAOt  TO  T Ht 
L A B£  l ‘TURN  RIGHT  *. 

IFl.NDT.  RIGHT)  GO  TO  6 

A T.ST  IS  MADE  TD  SEE  IF  THE  CONTOUR  CROSSES  BC 
AS  IN  CASc  ( I V/  > DF  FIG.  6.  IF  SO,  A JUMP  IS  MADE 
TD  THE  cABEL  'STRAIGHT*. 

IF(ZC  .LT.  h)  GO  TO  9 

TOP  LEFT • 


6 T = 0.  0 

THE  CONTOUR  CROSSES  Cu  ANU  THE  COORDINATE  OF  THE 

point  where  this  h a p ^ t n :>  are  calculated  using 

INV.RSE  LIN-AR  INTERPOLATION  AND  ARE  OUTPUT  TO 
THE  PROCEDURE.  DRAW. 

I F ( Z J • N c. . ZC)  T = ( ZD-H)  / (ZD-ZC) 

X = J.  5*  (XM(  I ) ♦ (1.  0-r ) +XH  ( 1 1- 1 Ah-  J A ) * (1. 0 + T)  ) 

V = 0. 9'  ( YM<  J)  ♦ ( 1.  0-T  ) ♦ YM  ( Jt  JA-IA)  * ( 1. 0*T>  ) 

CALL  DRAW  (X, Y, POLAR, FIRST, lAST) 

A T _ s T IS  MAjE  TJ  SEE  WHlTHlR  THE  SITUATION  IS  AS 
IN  CASE  (VI)  OF  FIG.  o.  IF  SO,  A JUMP  IS  MADE 
TO  T HE  LABEL  'TURN  LlFT '. 

IF (RIGHT)  GO  TO  10 

A T£ST  IS  MAD;.  TD  SEE  IF  THE  CONTOUR  CROSSES  BC 
AS  IN  CASE  (III)  OF  r I 3 . 6.  IF  SO,  A JUMP  IS 
MAJi  TO  THE  LABc.  'STRAIGHT';  OTHERWISE,  A JUMP 
C IS  HADE  TO  THE  LABEL  'TOP  TIGHT'. 

C 

I F ( Z B .-T.  H)  GO  TO  5 
GO  TD  9 

7 RIGHT  = .FAlSE. 

C 

C THE  CONTOUR  CROSSES  AO  AND  THE  COORDINATES  OF  THE 
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t 

POINT  HHtRE  THIS  HAPPENS  ARE  CALCULATED  USING 

i n Rit  linear  interpolation  anu  are  output  to 

THE  PRUCEDURl.  DRAW. 


T = 0.0 

I F ( Z A .ME.  Z □>  T = ) . 5*( ZA-H) / (ZA-ZD) 

X = X M (I+IA)  - T * (XM(I+1A)-XM  ( I J A > ) 

Y = YH  ( J*JA) -T*  (YM  ( J*- J A)  - YM  ( J-I  A)  ) 

call  draw  IX, Y, POLAR, FIRST, LAST) 

A T_  ST  IS  MADc  T 0 SEt  IF  THE  u ONT  OUR  CROSSES  AC 
AS  IN  o A St  (I)  0-  FIS.  fc.  IF  SO,  A JUMP  lo  MADE 

TO  THE  LABEL  'TURN  LEFT'5  OTHERWISE,  A JUMP  IS 
MA  0_  TO  THE  LABEL  'TOP  LEFT'. 

IF  (ZC  . LT.  H)  GO  TO  6 
GO  TO  10 

TURN  RIGHT. 

8  ZA  = ZB 


THE  CONTOUR  EXITS  FROM  THE  eASIC  RECTANGLE  BY 
CROSSING  OB.  THE  VALUES  OF  ZA,  IA,  AND  JA  aRE 
UPUATtO  BlFORE  GOING  ON  TO  FIND  A NEW  POINT  T. 

TEMP  = IA 
IA  = JA 
JA  = -TEMP 
GO  TO  1 

STRAIGHT. 

9  Z = ZB 

THE  CONI  OUR  EXITS  FROM  ] Hl.  BASIo  RcCTANGlE  BY 
CROSSING  PC • THE  VALUES  OF  Z,  ZA,  I,  ANO  J ARE 
UPOATtO  BLFOKE  GOING  ON  TO  FIND  A NEW  POINT  T. 

Za  = ZC 
I = I ♦ J A 
J = J-IA 
GO  TO  1 

TJRN  LEFT. 

10  Z = ZC 


THE  CONTOUR  tXITS  FROM  ThE  BASIC  RECTANGLE  BY 
CROSSING  AC.  THE  VALUES  OF  Z,  I,  J,  IA,  ANO  JA 
ARE  UPDATtO  BEFORE  GJiNG  UN  TO  FIND 


A N.  W POINT  T. 

I = ItlAfJA 
J = J - 1 A j A 
rt'iP  = ja 

JA  = X A 
IA  = -T.M? 

GO  TO  1 
LND 
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SO8R00TIN;.  URAH  ( X , Y,  POlAR, F IRST  , L AST ) 
LOGICAL  POLAR, FIRST AST 
IF  (POLAR)  GO  TO  2 
XP  = X 
YP  = Y 

1 IF(FIRST)  CALL  PLOT  IXP,YP,S) 

CALL  PLOT  (XP,YP,2) 

RETURN 

2 XP  = X*:oS(Y) 

YP  = X * S I N ( Y ) 

GO  TO  1 

END 
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APPENDIX  B 

Some  Special  Versions  of  Subroutine  DRAW 

Four  modifications  of  DRAW  are  listed  here  to  show  how  easily 
one  can  adapt  the  basic  contouring  package.  The  first  version  was 
used  to  produce  the  Joukowski  airfoil  shown  in  Figure  5;  Figure  4 was 
produced  with  the  basic  package  using  the  same  data.  The  second  version 
untransforms  streamlines  from  the  X,n  plane  to  the  X,Y  plane  and  draws 
them,  as  in  Figure  6.  The  third  version  does  not  draw  the  contours  directly 
but  rather  accumulates  the  coordinates  in  X,  Y,  and  Z arrays  until  the 
contour  is  complete,  then  passes  the  transformations  described  in  Section 
3.  Thus  was  Figure  6 produced.  The  fourth  version  shows  how  symbols 
might  be  added  to  the  first  and  last  points  on  the  contours.  The  common 
block  COUNT  would  be  added  to  LEVEL1  or  LEVEL2  and  the  variable  NCT  made  to 
correspond  to  the  loop  counter  K. 


87 


♦ ► 


SUBROUTINE  DRAW  ( X , Y , POL A k, F I RST , L AS T ) 
COMMON  XTRFORM/  EX  , £ Y , S A , C A , kA M 


C MOOIFIclJ  FOP  JOUCuWoXi.  TRANSFORMATION. 

C 

LOoICAl  POLAR, FIRST .LAST 
IF ( POLAR)  GO  TO  2 
1 = 2 

IF  ( ( X * X + Y 4 Y ) ,LT.  RAM)  1=3 
A = X-t-tX 
B = Y <•  l Y 
D = A*A  + d*3 
IF  (0)  3,4 

3 XP  = A+ ( A*CA-3*SA ) / D 
YP  = 3- ( A*SA+a*CA) /D 
GO  TO  1 

4 XP  = A 
YP  = 3 

1 IF  ( F I RST  ) CALL  PLOT  (XP.YP.3) 

C A t. L PLOT  (XP.YP.I) 

IF  (.NOT.  LAST)  RETURN 
PRINT  101 
101  FORMA  T ( 1 H ) 

RETURN 

2 XP  = X*COS  ( Y) 

YP  = X*iIN(Y) 

GO  TO  1 

tNO 


88 


■— 


*v  > 


* 


SU3<JJ  n r4-  JR  AW  ( AX , A Y , POlA K, FIRST , LAST ) 


ccmo'j 

/Q/  X(E1>  , Y L l i 1 ) ,YO(fcl)  , 

logical 

POLAR, FIRST  ,. AS  T 

Pi 

= AT<R(X,Y'J,ftl  ,2, AX) 

ss 

= ATKN(X,YL,bl,2,AX) 

XP 

= AX 

YP 

= (SS  ♦ A Y*  ( PS  - SS)  ) * S Y 

IF  ( F I Ri T ) 1,2 

1 CALL  PLJT  (XP,YP,3> 
RE  T J RN 

2 C A l L PLJT  (XP,YP,2) 
RET JRN 

END 


c 

o 

J 

c 


SUOPOiriNF.  DRAW  (X,Y,  POLAR,  FTPST, LAST) 

LOGICAL  POLA R, FIRST, LAST 

C 0M WOW  /XYORAW/  XCdll)  ,YCtlOO>  ,KC 

COMMON  /WORF/  DX<1(10)  ,PY(100)  ,OZ(100)  ,2CONT 

ACCOWUL AT  IMG  VFPSION 


yo  - v 

IF  <FI?^T>  KC  = 0 
KP  = <0  + l 
XC(KC)  = XP 
YC(<C)  - YP 

IP  (.N0T,  LAST)  RFTURN 

no  1 I - 1 , fcr c 

P Y ( I ) = YC  ( I ) 

FX (I)  - XC(I) 

PZ(I)  = ZCOWT 
1 OOHTIMU- 

CALL  DISPLAY  (°y, PY ,PZ , KO) 

<p  = n 

RFTURN 

f no 
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SU3*0UTiNc  DRAW  (X,Y,POLA*,  FIRST,  LAST) 

CORNON  /COUNT/  NCT 

LOGICAL  POLAR, FIRST , _ AST 

IF  (POLAR)  GO  TO  3 

XP  = X 

YP  = Y 

1 IF  (.NOT. FIRST)  GO  TO  2 
CALL  PLOT  ( XP  » YP , 3 ) 

CALL  SYNBOL  (XP,YP, 0. 10a, NCT , 0 . 0 , - 1) 
RETURN 

2 CALL  PLOT  UP,YP,2) 

IF  (.NOJ.lAsT)  RETURN 

CALL  SYMBOL  (XP,YP, 0. 105, NCT ,0. 0,-1) 
RETURN 

3 XP=X*COS(Y) 

YP  = X*SIN  (Y) 

GO  TO  1 
ENO 


I 


i 


-J 
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APPENDIX  C 


Program  SHOWOFF 

Program  SHOWOFF  and  its  subroutines  were  used  to  draw  the  turbine 
blade  in  Figure  11.  The  BLOCK  DATA  subroutine  contains  data  only  for 
the  fir  tree;  the  blade  coordinate  data  was  read  from  a permanent  disk 
file  via  TAPE  4,  though  it  could  have  been  read  from  card  input.  The  data 
is  listed  at  the  end  of  this  appendix. 

Subroutine  PREPARE  sets  up  the  coordinate  transformation  described 
in  Section  3.3.,  using  ROTMAT  to  compute  the  rotation  matrix. 

Subroutine  RAM  transforms  the  input  data  to  the  eye  coordinate  system, 
using  subroutine  PHI  to  perform  the  matrix  multiplication,  then  converts 
the  result  to  perspective  coordinates  and  computes  the  scale  factors  for 
\ ’ plotting  as  described  in  Sections  3.4  and  3.5. 

\i 

I i 

i • 

l r 

I i 

[ $ 

K * 

1 '' 

( 

v 

i s 

v 


h shokoff  (TNfijT,  c,jt-ut,ta3;'l,plot) 

CO-  “ON  xq(C,  27)  , ( =.,  27)  , Z"  (r  ,2M  , cy*  (5  , ?7)  ,*YT(5,27) 


1 57  (r .,->7)  ,ty  (’l,*)  , >Y  ( 21  ,7)  , ( ° 1 , ^ » ,X  (?7>  ,YP  (27)  , YS 

- {•»’) 

OO  '-OM  /0-lJ..,'T/  YFT(?1,2)  ,vFT(?1,2)  ,?FT(21,2) 

CO^On  /\I7~U/  X7,YV,7y 

CO-  -ON  / F r i 5 ) ' " / vr,  Y C,  (-F,OF,  r F , QP 

rn-'-ON  /HOW/  t yMir<>  V , YMTN,  Y *41X 

na-£  y~,  YF,r:>qi  /o^F.Qj  .TRUi  , / 

x 3 p A L (Y)  = n-  4-  rr*y 

Y ” “ A L ~ ( v ) = op  + fl  F*  y 

p ■ - ' r r >j  n . 


no  7 

X r 

1»5 

o =■ o 

( i* . 10  0) 

7 

r ■ n 

( <4 , ion) 

( Y (I)  ,Y< 

On 

p n ••  1 0 

T (OF  11) 

. ') 

nn  t 

T _ 

J 

- 

1 + I/’ 

y ’ ( x , 

J)  = 

X ( T) 

Y"  ( K , 

J) 

YP  (I) 

K, 

J) 

7 

1 

r0  i”  T 

Mlj 

no  ? 

I 

j 

- 

1 4-  ▼ / O 

Y">  ( < , 

J ) 

V (FU-T1 

VO  (K  , 

J)  = 

V S ( F 4 - T ) 

7 UK, 

J) 

7 

r> 

CO'I-I 

'"J 

X 

r OMT  X 

NIJ  ‘ 

Pfll  |. 

PLOT  (1 

CM  l 

r i <1  T r>  '4 

( px  5T 

L 

r n-:T  i 

N't 

o T NJ- 

>,  "VI 

" WPCTMT  ••• 

R'  Ao  * , XV,vy, 7v 

IF  (XV  . FQ . 0.7  .AMO.  YV  .rO,  0,0  ,5NO,  77  ,-Q,  0.0) 
• r;  n ~o  ■ 

O 'l  \T  * , X v,  v\/ , 7 7 
“ L L P R ' T 1 " 

V ' / = Y-'fl  X =■  - 1 . 0r  F 

/MTV  - Y'O'I  = 1 , OF -7 


CM  L ’V 

(XFT  ,vft,zpt , 

PRT  NT  * . 

" 0 r T W ■' ' 1 

C ML  ” 5 •' 

(X£1,Y3,7.j,i  X n 

OF  VJ 

FT,  -r  -- 

p » I NT  * , 

"F' 0TNNTM6  C1 

,iXO,FYP,r20,F,?7,5) 


3 n r T 
£ £ j l c i n 


TAIL 


,/\i  1 CLOT 


= 1,  ?n 

( y 3 r 5 !_  (oy(i>i,2)  ) , YSCAL”  (PY  fl  + l,  2)  ) ,-*) 
VT  (XCC  H r (F  Y{J,  21)  , YFCALF  ( ~ Y ( 1 , 7) ) , ?.) 
(XS05L  '(kX(I  , 1)  ) , YSOSL:  < =*  Y ( 1 , 1 ) ) ,2) 


93 


«*rO 


CUl  PLOT  (XSCAl' (PX  (I>1,  1)  ) , YSCALp  (=>Y(I+1, 1)  ) ,2) 
v ClHTP.'IJ' 

C Q I?A‘J  PL^Or 

r?IM  *,  " V CIMNTNC  3LaC  “ 
nnr-i  = i , i -r 

CALL  PL°T  ( vcC  h."  (HM1  ,T  ) > , YSCAL  " ( ^Y«?  ( 1 , 1)  ) , X) 

PC  F K =2," 

C'LL  pl^T  (xSCAL" ( fxi (K ,T ) ) , y<?CAL * (pvp << ,1) ) , 2) 

(■  rn^jT  jnij 

P p I N' t "v(jo  ■!  n r •• 

Pn  ’ K r l,f> 

C?!L  CLPT  ( X^C  11“  (PV^  (K  ,1  ) ) , YSOAl,"  (PY">  (K,  1)  ) , 3) 

po  ’ T = ?,?’ 

PALL  PLn  (XcC*-L“(fi,v^  (K,t))  ,YSCALr(^Y^(<»I)  ) >?) 

* - ro'r  I VJ  ' 


?k'p;T  *f  “FI  N T SH“ V 

C"Ll-  PL^T  CS.p.n.Q.-l) 


1 


Qinc<  data 

COMMON  / O1^  JP  CT  / XFT  (21,2)  ,YFT(21,?>  ,ZFT(21, 2) 

QA-M  (XPT (I, 1) ,1=1,21)  / 21*-0.i  / 

DATA  (X-t.(I,2),T  = 1,21>  / 2 1*1.?  / 

OATA  (Y-T (I, l) ,1=1, 21)  / 2*0.9, 0. 85, 0.75, 0. 3, 0.7, 0.75 
? ,0.55,0.7, 

1 0.5 ,0.5, 0.4,  0.4*;,  0.35,0.  4,  0.7, 0.35, 0.25, 2*0.  2, 0.9  / 
DATA  (Y"T (1,2) ,1=1,21)  / 2*0.49052,0.43052,0.33052,0. 

$ 3q  f'  52  , 

1 0. 2805’, 0. tt o- 2, 0. 23 052, 0. 28 052, 0.180 5?, 0.030 52, -0.0 
3 19  M, 

’ 0.  0305’, -0.  0 694«,-0.  0 1 54  3 , - 0 . 1 19-+ 6 , - 0 . 0 694  8 , - 0 . 1 6943 

* , 

3 2*-0. 21949,0.48092  / 

DATA  (7PT(I, 1) ,1=1,21)  / 10.0,2*9.5,9.49,9.4,9.35,9.3 
’ ,9.25,9.2, 

1 ’*9, 15, 9. 2, 9. 25, 9,3, 9. 35, 9. 4, 9. 45, 2*9. 5, 2*10.0  / 

D AT  A (Z~T(I, 2) ,1  = 1,21)  / 10.  0,2*9.5,9.45,9.4,9.35,9.3 
7 ,9.25,9.2, 

1 2*9.15,9.2,9.25,9.3,9.35,9.4,9.45,2*9.5,2*10.0  / 


f 


COMMON  /VIEW/  XV,YV,Z V 
COMMON  /MATRIX/  RMAT(4,A> 

DIMENSION  FM ( 3 , 3) 

LOGICAL  ZERO 

ZERO  = ABS(YV)  .LT.  I.Ol-5 

F = -SIGN ( 1, 0 , YV) 

I F (ZERO)  F = 1.0 

ROTATE  SO  THAT  ZE  AXIS  POINTS  AT  OLD  ORIGIN 


HYP 
ALPHA 
BETA 

IF  (ZERO) 

BrTfl 

CONTINU" 

CALL  P OT  MAT  (ALPHA, BETA) 


= SORT ( X V*  X V + YV*YV) 

= - AT  AN  ( ZV  / H Y°) 

= 1.  t>Z07O63*SI  GN  ( 1. 0 , XV) 
GO  TO  1 

= -ATANCXV/YV) 


DP  ? J 
FM  ( J , 1 ) 
FM(J,2) 
FM( J,3) 

2 r ONT INU- 
no  3 I 
DO  3 J 
RMAT (I, J) 

3 CONTINUE 
RETURN 
FNO 


1*3 

F* PMfl j (j, i) 
format (j,3> 
RMAT ( J ,? ) 


1*3 

1,3 

FM(I, J) 
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SU^OUTTNr  FA*  (X,Y ,7 ,RX,RY,RZ,M,N,NT) 

common  /vi-*/  xv,  yv,  7v 


JU  T I u I . 'N  " a i-  l \ , 

COMMON  /VI"w/  XV, 
COMMON  /PRArF/  Xr, 
OONMON  /HOW/  r-?  , 

LOGICAL  nRSP 


YV,  7V 
YF,  A1 
XHIN, 


',  BF, 
X J A X , 


OF,  OF 
Y*IN,  Y*»AX 


r-  AL 
00  1 
00  1 


R0TAT1  an jo  OCAL- 

X ( ' ,N)  ,Y  (0,0)  , 7(  M,  N)  ,;>X  (M,N>  , RY  (*,  N)  , RZ  (M,N) 
J = 1,»J 


ARX (I , J) 

- 

X ( T , J ) - XV 

FY (T, J) 

= 

Y ( I , J ) - Y V 

RZ(I,  J). 

~ 

7(1,  J)  - ZV 

1 

FQNTINIJ  : 

CALL  PHI 

(RX 

,RY,P7,rt,R) 

IF  (.MO* 

. PROP)  GO  T0  X 

00  ">  J 

= 

l.N 

00  ? T 

r 

1 ,u 

nz 

- 

1. n/RZ  (I , J) 

RY (I, J) 

r 

R X ( T , J ) * 0 7 

RY  ( T , J ) 

- 

cY(T, J)»OZ 

07 (I, J) 

- 

- O7 

? 

CONTIN'J  * 

0 

on  u j 

~ 

i»N 

00  A I 

= 

1 ,NT 

YMIN 

= 

A MTM1  ( YMIN, 

Y m ft  y 

r 

AMAX1 ( ymax, 

X MI  N 

- 

AMpii  ( XMIN, 

XMAX 

- 

AMAX1 (XMAX, 

L 

COMTINIJ- 

OY 

- 

Y ° A X - YMIN 

nx 

= 

XMAX  - XMIN 

IF  (OX  . 

GT. 

OY)  on  to  5 

PXr 

= 

Xc  * OX / nY 

AF 

= 

ycr/ny 

°F 

- 

- AF*YMIN 

CF 

= 

kXF/OX 

.OF 

= 

n.B* ( XF  - N 

P r T !J  R M 

b 

RXF 

r 

YF*ov/nx 

OF 

= 

XF/ny 

HF 

= 

- OF*XMIM 

AF 

z. 

Rvf/hy 

BF 

P'TURM 
r m n 


0 • f* ( YF 


- cf*xmtn 


- Ac*  YMIN 


SUnr  OilTI  Nc  "MI  (X,V,Z,M,M^ 

01  "Ar  Mc  TON  X (*%  Ml  , Y (*,  N)  ,Z  fM,N> 

COMMON  /MflTPiy/  PM fl  T (4,4) 

on  i t - i,“ 

nr>  1 J = 1,N 

yp  r RMAT  (t,l)»X(l , J)  «■  PMAT  (I,  J) 

* » X)*7  (T»J) 

yo  - J)  + RMAT?,?)  *y  (I,  J) 

* ,T)*Zr,J) 

70  = o-1AT  r?,n*X(T,  J)  ♦ RMAT(3,?)*Y(I, J) 

b ,3)  *Z  (T  , J) 
v c T , J > = YP 

Y(T,j)  - YO 

Z(I,  J)  - 70 
1 COMTIMIJr 

P.-T|J5N 

r\in 


: 
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RM AT  (1 
Rm  AT (2 
RM  AT  ( 3 


*»0fc 


10. 00000 
.00573 
.01037 
.02174 
. 0 32ol 
. 0 4 3 4 3 
. 0 5 4 5 
.10870 
. 16305 
. 217*0 
.2/17  5 
. 32610 
.38045 
. 43430 
.-♦3915 
. 54350 
. 59735 
. 55220 
. 70655 
.75090 
. 91525 
. 86960 
. 92395 
. 97830 
1. 03265 
1.06526 
1. 07613 
1.08153 
11. 31200 
-. Q?794 
-. 35367 
-.  042  3 7 
-.03107 
-.01976 
-.  0084b 
. 048  05 
. 10456 
. Id  108 
.21759 
. 27410 
.33061 
.38713 

• 44364 

. 500  15 

• 5 5 6 o o 
.61318 
. 669o9 
. 72620 
. 78271 
. 83923 


.33619 
. 36977 
.33457 
.39871 
.41223 
. 42516 
.43153 
.52572 
.55929 
. 5d3  3 4 
.59862 
.60570 
.60495 
. 59d52 
. 53083 
. 85759 
. 82680 

• 433  26 

• hhI 6 0 
.38532 
. 32212 
.24993 
. 17157 
. 0 833  1 
. 03762 
. 02035 
.01095 

.38100 
.41370 
. 43489 
.45031 
. 46496 
. 47b95 
. 53916 
.58536 
.61952 
. 64296 
. 65666 
.66127 
.657 19 
. 64472 
. 62397 
. 5949»+ 
. 55747 
. 51126 

• 45d  34 
. 39049 

• 31464 


. 33619 
. 32202 
.33102 
. 33959 
. 34775 
. 35551 
. 33408 

• 4 1 5 0 4 
. 43447 

• 44304 

• 45617 

.45909 
. 4 5 6 8 7 

• 4*940 

• 43  do  7 
.41315 
. 39339 
. 75179 
. 32285 
.27660 
. 22370 

• 16  5 3 5 
. 10  143 
. 03349 

-. 00914 
-. 02365 
-.01095 

. 38 100 
. 36277 
. 3732  7 
. 33  316 
. 3925  1 
. 40134 

. 43879 

• 4 3 bd  3 
.43702 
. 50030 
•"3718 
.50792 
.53255 
.49038 
.47250 

• 4+  b73 
.41271 
. 3 j 97  2 
. 31791 
. 25632 
. 19219 
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. 49574 

. 22862 

. 12049 

. 9»225 

. 13365 

. 04393 

1. 0087b 

.03133 

- . 03b60 

1. 04287 

-.03291 

-.03715 

1. 05397 

-.05473 

-.  10  423 

1. 05902 

- . U9059 

- . 0-s Gp9 

12. 82500 

-.12328 

.44971 

.44971 

-. 11826 

.48846 

. 43195 

-. 10653 

. 50393 

• 4+  05  0 

-.05479 

.51874 

.44870 

-.08306 

. 53289 

• 4p  6 3 9 

-.07132 

. 54642 

. 4b3b  7 

-.01285 

. 0O5IS 

. 49429 

• 0 4 6C  3 

, 6p042 

. 51652 

.10470 

.53345 

.53141 

. 16338 

. 70526 

.53957 

. 22205 

. 71657 

. 54129 

.28073 

.7  1790 

.53664 

. 3 3 9 + 0 

.70962 

.52547 

. 39808 

.69197 

. 50  737 

• 45675 

. 66506 

• 4816  9 

.51543 

. o2890 

.4*757 

. 57410 

.58339 

.40429 

. 6327  3 

. 52631 

. 35  202 

.59145 

. 46330 

.23180 

. 75  0 13 

.33736 

. 22492 

.808o0 

. 30175 

. 15241 

. 3674  8 

. 2 Op  2 7 

. 07p06 

. 92615 

.09932 

-.00658 

.98433 

- . 01493 

-. 03206 

1.  0200  3 

- . 0 3o  92 

-.  1*506 

1.03177 

-.11143 

-.  1d300 

1. 03702 

- .14995 

-.  14995 

13.  33800 

-. 18997 

• 54827 

.5+627 

-. 18235 

.53577 

.53267 

-. 17033 

.59915 

. 53  76  7 

-. 15352 

.61193 

.54239 

..-.  146  35 

. 62411 

. 5*o32 

-. 13418 

. 63p  7 2 

.55093 

-.07334 

. ba  5 55 

• 5p  7 3 0 

-. 01251 

. 7225b 

. 57  837 

. 04833 

. 74777 

.53300 

.10917 

. 7 ol 9 4 

.55132 

. 17  001 

. 7 65  0 8 

.57482 

.23034 

.75944 

.55179 

. 29153 

. 74357 

. 5+239 

. 35252 

.71632 

.51603 

. 41336 

.68332 

. 4821 9 
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. *7*19 

• 6 -.0  16 

.*4015 

.^3503 

. 5 37  31 

.33931 

• 5 33d  7 

.52520 

. 33219 

• 35  b 7 1 

. 45354 

. 25  7 9 8 

. 717:>u 

. 372*3 

. 1 9824 

.7  7 638 

.23153 

.12374 

. 03322 

.13133 

.0*501 

.9000b 

.07241 

-. 03747 

. 36009 

- • 0 *‘♦5 8 

-.  12336 

. 997*0 

- . 11328 

-.  17o41 

1.0035b 

-.  14339 

- . 19  43* 

1.01535 

- . 1825  0 

-.  13  250 

15. 25000 

-.25000 

. d55 1 0 

. 65510 

- . ? 4 7 3 4 

.58762 

.63353 

-.23473 

.59711 

.63902 

-.  2221  9 

. 7 Jo  2 0 

. 63935 

-.20955 

.71439 

.63953 

-.19639 

. 72318 

. 63954 

-. 13339 

. 75b6b 

. 63  7 25 

-.  07  033 

. 78429 

. b3  0 9 8 

-. 00793 

. 30020 

. 62 0 o 3 

. 05501 

• 6 0 5 5 0 

.60609 

.11801 

.30326 

. 53  71o 

.13101 

.79057 

• 5 5 3 5 8 

. 24*01 

. 763  4 9 

. 53504 

.30701 

. 73706 

.53115 

. 37001 

.69632 

.45152 

.43301 

. 64523 

.*1580 

. +9301 

• 5 3 o 96 

. 35  391 

. 553C1 

.51834 

.70600 

. 52  201 

• ‘♦4  0 41 

.2*251 

. 63501 

. 353*1 

. 1739* 

. 7 4^01 

.25799 

.10031 

. 31101 

.15512 

. 02357 

.37401 

. 0*593 

-. 05741 

.33701 

- . 0 03  5 0 

-.1*130 

. 97*31 

- .13324 

-.  19  396 

.98741 

-.16313 

-. 21159 

. 993  9 7 

- . 20u93 

-.20093 

APPENDIX  D 


The  Hidden-Line  program  DRACULA 
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D.I  Program  DRACULA,  which  was  used  to  draw  Figures  17  through  22,  is 
listed  on  the  following  pages  along  with  its  subroutines  (except  for 
RAM,  PREPARE,  ROTMAT  and  PHI,  which  are  identical  with  those  in  Appendix 
C)  and  all  necessary  data. 

DRACULA  begins  by  calling  BLDATA,  which  reads  the  blade  coordinates 
and  plane  equations  from  mass  storage  on  logical  unit  4.  This  operation 
is  not  repeated. 

Then  DRACULA  reads  the  viewpoint  (e.g.  XV,  YV,  ZV:  12,  12,  20), 

the  number  of  tiers  to  be  drawn  (NT:  0 thru  4)  and  the  number  of  seg- 
ments of  the  uppermost  tier  (NSEC:  even  numbers  2 thru  26).  XF  and  YF 

are  the  frame  sizes  for  the  final  drawing,  in  inches.  PPINTM  is  a logical 
variable  which  if  set  to  .TRUE,  causes  the  rotated  volume  matrix  to  be 
printed  .and  the  logical  variable  WHITE  signals  the  operator  to  mount 
plain  paper  instead  of  graph  paper  on  the  plotter. 

The  variables  NT  and  NSEC  are  checked  to  be  sure  they  do  not 
exceed  4 and  26  respectively,  then  MANY  counts  the  number  of  segments 
to  be  drawn.  The  least  is  5,  for  the  fir  tree  alone. 

DRACULA  calls  PREPARE  to  set  up  the  rotation  matrix,  ROTPLN 
to  transform  the  plane  equations  and  transform  and  scale  the  line 
coordinates,  WINDOW  to  assign  windows  to  each  segment,  and  WINLIST 
to  print  the  window  list.  Subroutine  TIMREM  is  used  to  time  the 
computation. 

The  prel imi naries  over,  DRACULA  begins  selecting  lines  to  be  drawn. 
Subroutine  FINDM  decodes  the  line  list  entries  and  returns  the 
segment  number  in  NE  and  the  plane  numbers  in  MV  and  NV,  which  are  used 
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for  the  preliminary  visibility  test.  If  the  line  is  not  a back  line, 
DRACULA  prepares  two  vectors  of  length  4 (VB  for  the  beginning  of  the 
line  and  VE  for  the  end  of  the  line)  and  passes  them  to  subroutine  HIDE. 
The  logical  variable  NEWSEG  signals  HIDE  that  the  given  line  is  on  the 
same  segment  as  the  last  and  the  old  DO  list  can  be  used  or  that  this 
is  a new  segment  which  needs  a new  list.  When  drawing  the  blade  proper, 
DRACULA  calls  VSET  to  prepare  the  vectors.  After  all  segments  of  the  blad° 
are  drawn,  DRACULA  calls  TOPPER  to  draw  a top  on  it. 

D.2  Subroutine  BLDATA  reads  the  data  file  listed  at  the  end  of 
this  appendix.  Blade  coordinates  are  given  as  five  sets  of  an  X array 
and  two  Y arrays,  one  each  for  the  pressure  and  suction  sides,  running 
from  the  leading  to  the  trailing  edges.  BLDATA  selects  every  other  X 
point  and  steps  from  front  to  rear  taking  Y's  from  the  pressure  side, 
then  back  to  the  front  taking  Y's  from  the  suction  side  to  form  a closed 
loop  at  each  of  the  five  sections.  After  reading  the  coordinate  data 
for  a section,  BLDATA  reads  the  plane  equations  for  that  section.  When 
all  five  sections  are  read,  it  reads  the  matrix  and  line  lists  for 
the  blade  and  finally  it  reads  the  line  lists  for  the  trailing  edge  and  the 


D.3  The  tdOCK  DATA  subroutine  contains  the  coordinates  and  plane 
equations  for  the  fir  tree  as  well  as  the  plane  translation  matrix  and 
the  plane  perspective  transformation  matrix. 

D.4  Subroutine  DOLIST  is  called  by  HIDE  to  prepare  a list  of  all 
segments  in  the  same  windows  as  the  current  segment,  which  is 
denoted  by  NB.  The  first  loop  finds  the  windows  (columns  of  array  IN) 
occupied  by  segment  NB  and  the  second  loop  copies  all  other  entries 
in  those  columns  into  array  JLIST.  MEMSET  is  a machine  language 
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subroutine  used  to  set  JLIST  to  0.  It  can  be  replaced  by  a DO  loop. 

D.5  Subroutine  FINDM  decodes  the  line  list  numbers  supplied  in  LI  and 
L2  and  returns  the  segment  number  in  NB  and  the  numbers  of  the  two 
planes  whose  intersection  is  the  line  in  MV  and  NV  in  the  form  of 
column  subscripts  in  FVMAT. 

D.6  Subroutine  HIDE  tests  each  line  given  it  against  all  the  bodies 
in  JLIST.  It  is  more  fully  described  in  Section  4.2.10. 

D.7  Function  INTHERE  returns  a value  of  1 , 2,  3,  or  4 according  to 
which  window  Y is  in. 

D.8  Subroutine  MMIP  is  used  to  multiply  the  4 by  548  volume  matrix 
by  the  rotation  matrix  and  store  the  result  back  in  the  volume  matrix 
in  order  to  save  space. 

D.9  Subroutine  MMPY  is  a general  purpose  matrix  multiplier. 

D.10  Subroutine  ROTPLN  transforms  the  fir  tree  and  blade  coordinates 
using  subroutine  RAM.  The  largest  and  smallest  X and  Y from  the  two 
sets  of  data  end  up  in  XMIN,  XMAX,  etc.  and  are  used  by  RAM,  to  com- 
pute the  scale  factors  as  in  Section  3.5.  The  plane  equations  are 
transformed  using  matrices  4-14,  4-15,  and  the  rotation  matrix. 

D.11  Subroutine  SEEK  performs  the  operations  described  in  Section 
4.2.7.  SD  contains  the  S and  D vectors  from  eq.  (4-6).  J1  marks  the 
first  column  of  the  current  body  in  the  rotated  volume  matrix  and  J2 
marks  the  number  of  columns.  JS  then  is  the  offset  or  distance  from 
the  first  column  of  RVMAT.  For  instance,  if  the  given  segment  were 
represented  by  columns  48  through  52  of  RVMAT,  J1  would  be  48.  J2  would 
be  5,  and  JS  would  be  47.  Further  details  of  SEEK  are  in  Section  4.2.10. 
D.12  Subroutine  TOPPER  is  called  by  DRACULA  to  draw  a cap  on  the  blade. 
If  the  fourth  tier  was  the  last  drawn,  IW  is  1 and  TOPPER  draws  the 
cap  using  the  top  list;  otherwise  IW  is  2 and  TOPPER  forms  the  cap 
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from  the  bottoms  of  the  next  tier.  If  a partial  tier  was  drawn, 

DRACULA  calls  TOPPER  a second  time  to  cap  the  uncovered  lower  tier. 

D . 1 3 Subroutine  VALID  tests  a given  t-a  pair  in  the  inequalities 

(4-8).  NVQ  counts  the  number  of  times  VALID  is  called;  50,000  is 

not  uncommon.  Usually  VALID  returns  early  from  the  first  loop  and 

therefore  does  not  use  much  time.  LI  and  L2  mark  the  pair  of  lines 

whose  intersection  is  the  current  t and  a;  they  are  not  tested. 

If  t and  a survive  the  first  loop,  VALID  updates  t . or  t and 

r min  max 

returns. 

D.14  Subroutine  VSET  forms  the  VB  and  VE  vectors  from  the  blade 
coordinates  as  directed  by  DRACULA. 

D.15  Subroutine  WINDOW  assigns  each  segment  of  the  object  to  one  or 
more  of  the  four  subareas  (windows)  of  the  viewing  area  (see  Figure 
22)  by  comparing  all  Y coordinates  of  that  segment  with  the  Y 
boundaries  of  the  four  windows.  The  X boundaries  need  not  be  checked 
because  the  scaling  procedure  centers  the  object  left  to  right. 
Results  are  recorded  in  the  array  IN  such  that  if  a segment  appears 
in  a window,  the  segment  number  is  stored  in  IN  (NW,NS),  i.e.,  if 
segment  53  appears  in  window  3,  IN  (3,53)  contains  53.  CDC  FORTRAN 
Extended  allows  arbitrarily  complex  subscripts,  hence  the  peculiar 
looking  statements  just  before  statements  2 and  3.  It  all  amounts 
to  obtaining  a Y value  from  the  fir  tree  coordinates,  which  are 
stored  sequentially  rather  than  by  segment,  scaling  it,  and  feeding 
it  to  INTHERE  which  returns  an  integer  from  1 through  4.  This 
integer  is  our  first  subscript;  the  second  subscript  is  L.  Two  loops 
are  necessary  for  the  fir  tree  because  the  upper  two  segments  have 
four  corners  on  the  end  planes  and  the  lower  three  have  six.  The 
logic  for  the  blade  is  similar  except  that  it  handles  the  segments  in 

106 


irf  Ui 


J 


pairs  (see  Section  4.2.10)  and  it  enters  a value  for  the  segments 
immediately  above  the  current  segment,  for  use  when  drawing  the  cap. 
Finally,  WINDOW  checks  for  cases  where  the  two  ends  of  a segment  are 
not  in  adjacent  windows,  i£.;  one  end  could  be  in  window  1 and  the  other 
in  window  3.  WINDOW  fills  in  the  intervening  spaces  in  IN. 4 > 

D.16  Subroutine  WINLIST  prints  the  window  list  (array  IN)  so  that  the 
user  can  see  which  segments  are  in  which  windows. 


f DRACULA 


Read  blade  data 
from  disk 


Read  Viewpoint, 

MTIERS,  NSEG  , etc 


Ro'Ia'fe  € S co/e 


Window 


,-"H  i dd  e n'' 
back  tine  ? 


Coll  HIDE 


H i dden 
back  line  i 


Call  HIDE 


FIGURE  30 


Comp  le+ely 
hidden  f 


Er»d  of 
JLLST  ? 


Draw  visible 

part 


R efurn 
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3ROoRaM  ORaCUlA  ( I NPU1  , U J TPUT  ,TA;jE4,PlOT  , 
i TAPE6=JJTPUT) 

COMMON  /OBJ  ElT/  \/MAT<4f  35)  , XFT<21,2),  YFT<21,2), 
s ZFT l 21,2) 

COMMON  /LaSTS/  "lIST (103,2),  i_LIST(20,5)»  LLlSTBt*,, 
i 13,6), 

1  L TE ( * , 2)  , LT  OP  ( 1 3 , 4) 

COMMON  /3LAGE/  >;B<6,2Z),  Y3(5,27),  Z3(s,27) 

CuMllON  /VIEW/  Xv,  YV,  ZV 

common  /f*ame/  xf,  yf,  af,  3F,  cf,  DF 

COMMjN  /EDGE/  Nj,  V3(a),  VE  ( 4 ) 

COMMON  /HOW/  PR.'  P , XMiN  , XMmX,  YrtlN,  YMAX 
COMMON  /NVUAL/  jV Q 

Common  /bj^y/  news eg 

COMMON  //  RVMrti  i a, 5*3) , 3lMaT (4, 512)  , RX3(5,27), 

1 RYB(5,2Z),  RZ  3 l 5 , 2 7 ) , RX(21,2),  RY(21,2), 

2 RZ ( 2 1 , 2)  , FQ  (2,  3)  , M(o),  Su(2,4),  Jl,  J2, 

3 TIN,  f 2N , MANY,  NT 

LOoIjAl  PkiP,  HLOuEN,  PRINT  Pt,  WHITE,  NEWSEG 
NAmEcIST  /STAR/  Xv,YV,ZY,Ni  , NSEC, XF,YF,PRINTM, WHITE 
Hi  JOE  N ( M,  N ) = kV  M A T ( 3 , M ) .LT.  0.0  .hND.  RVMAT(3,N) 
j>  . l T . J.G 

OATA  XV,YV,ZV,N  EC  / 3*d.G,G  / 

OATa  XF,YF  / 2»:.o  / 

CATm  PRInTM,WHI  E * N ViE  Wo  / 2*. FALSE. ,0  f 
INITIALIZE 

^ A L L P u ol  (1. 0,i.0, “3) 

PKSP  = .TRUE. 

NT  = 3 

BEGIN 


Ls 

CALL  B l _>A  T A 
1 CONTINUE 

N V/  Q = 0 

Ri  A u STAR 

IF  ( X 0 .LO.  0.0  .AND.  Y V .EQ.  G.O  .AND.  ZV  .lQ.  0.0) 
£ GO  TU  30 
PRINT  100,  XV,yV,Z  V 
100  FORMAT  (*  1 VlEwPOi NT  t *,3FlL.5) 

IF  lWHITE  .ANj.  NVIEWS  .lT.  1)  CAll  PlOTPM  ( 
t,  “PM  PLuIN  /APE\  PLEASE. 3) 

NVIlW:>  = NkIlWS  ♦ 1 

NT  = Mi ,0(NT,4) 

NSEC  = Mi  JO (NSEC, 25) 

MANY  = 2 o * (NT  - 1)  * NSEC  ♦ 5 

MANY  = MA  ^ 0 ( MANY , 5) 

PRINT  101,  NT  ,N.i  EC  , MA  NY 


O O O O Cj  o o o o 


101  F0rM.*1  i+u  DRArti NG* , 13, 4 TitRS  JF  THE  bLADE4/ 

1 4 a NO* » 13*  SECTIONS  OF  The  UPPERMOST  tier*/ 

2 4 FOR  A ToTAL  OF4, lb4  30Q1ES4) 

OALl  PREPARE  j 

TRmN:>F0rM  >ND  SCALE  COORDINATES 

C A i.L  rOTPlN 

lM  = HLi.iT  ( M A N Y , 1 ) + MlIST  < HI  A N V ,2)  - 1 

IF  IPRIN1M)  Pki  U 102,  UkVnAT  (I  , J)  ,1  = 1,  A)  , J=1,LM) 

102  FORMAT  <4Q  VOLUE  MATrIX*/11H  -+215.7)) 

hORT  SEGMEN:  S INTO  RINDOWS 

CALL  RINDGW 
CAuL  R INLIST  (M- NY) 

ORAR  FxRTkEE. 

C A i_  L i i MRLM  ( TL(_FT  ) 

V 31-+)  = V E(*+>  = 1.0 

M3  =0 

DO  w I =1,20 

DO  i J = 1, . , 2 

CALL  FIhDM  (L  LI  T II, j)  ,LLiiT  ( I » J+  1 ) ,Nb,MV,NV) 

IF  (HIJOE H (MV, NO) ) GO  TO  & 

IF  (J  .ol  . A)  G j TO  3 
Vb ( 1)  = RX ( i , 1 ) 

V3 (2)  = RY (I, 1) 

Vb (J)  = K4< I, 1) 

IF  (J  .ul  . 2)  oj  TO  2 
Vtll)  = RX(  1 + 1 ,1) 

V E ( 2 ) = RY  ( 1 + 1,1) 

VE  ( 3 ) = RZ  ( 1 + 1 , 1 ) 

GO  TO  4 

2 VE ( 1)  = RX(  I, 2) 

VE(  2)  = RY  (1,2) 

Vt (3)  = RZ (I, 2) 

GO  TO  •+ 

3 Vb  ( 1)  = RX  ( 1 , 2 ) 

V3 (2)  = RY (I, 2) 

V3 (3)  = rZ  > I, 2) 

V E ( 1 ) = RX.  1 + 1,2) 

VE  <2)  = RY  (1  + 1,2) 

VE ( 3)  = RZ  i 1 + 1,2) 

A NERjEG  = No  .NE.  M3 

CALL  hue 
Mb  = N3 

5 C O NT  I N Ut 
b CONllNUc. 

i 


CJ  Cj  o o C)  o 


IF  MANY  .lE.  GO  TO  2D 


5 

ii 

i 


|i 

% 


u ri~\U  3LA0F. 


^S  =0 

DO  1 3 K = 1,  JT 

ImAx  = 13 


IF  <<  • cQ  • Nl  ) -M*,X  = N.iEC/2 


DO  13  I = 1, i MAX 

DO  11  J =1,7,2 

CALL  FlJjM  (LLIiTo(K,I,J) ,LLlhTd(<»I»J+l) 
IF  (MiUDEN(rtV,,W>  ) GO  TO  11 
IF  (J  .^1.  1)  G J TO  7 


Nd,MV,NV) 


PRlSsJFE  cjiDt,  HORIZONTAL 

C-^ll  V S i_  I ( K* I, < , 1+ 1) 

GO  TO  lu 

7 IF  (j  .jj.  3 ) ,0  TO  5 


SU~TiUN  Si  - E,  HORIZONTAL 

^ m l l V 3 _ r (K,2j~i,K,2Z-I) 

GO  TJ  1J 

3 IF  (J  , GT . s)  Gj  TO  3 

PRcSS'JkE  o»OE,  VERTICAL 
C A l l i/S^-T  IK,I,<*1,1) 

j 0 • 0 1 . 

H IF  (I  .lu.  1)  GO  TO  11 

oU^TlON  SIDE,  VlrTi..A_ 

F 0 i\  I = 1,  iT  Ij  THE  SAME  Aj  THl  PRESSURE 
slot  ( x . E.  lEADiNc  iuGE)  AND  1^  NOT  REPEATED  . 


DA,.,.  Vo  cT 

( K, 2o-l , K * 1 , 2 o 

10 

NE  WSE  G 
Call  H I ''l 

= Nd  .NE.  M d 

MS 

= Nd 

11 

continue 

12 

C u NT  I N U _ 

L«ji  VErTIlAl  -OUNUArY  (TRAxlING  EOol 
UN  COMFLET-0  TI_R). 

IF  (<  .ED.  NT)  ,3  TO  1 h 

Trailing  e^ge 

COPY 
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13  Lull  FINlM  (LTEi<»1>  ,lT£(K,2)  ,N3,M\/,N\/) 
li-  ( H I J'jE  N IMtf  , Nv  ) ) GO  TO  la 
CuLL  V 3 _1  INyl^.K+l,!",) 

-ALl  HIDE 
G J TO  l .j 

^lKTILAL  Li NtS  FROM  NLaT  dOJY  IN  TluR 

N IF  (IMAa  ,EQ.  13)  GO  TO  13 
1 = 1»  X + 1 

DO  17  J = 5,  ,2 

NE  nbE  G = J.EQ.  5 

LAlL  FinOM  (LLI  ,T  J(K,I,  J)  ,LLl3Td(K,I,  J + l)  ,NB,Mi/,NV) 
IF  ( J . . 5 ) j i TO  15 

GALL  V3>c.T  (K,I,<+1,I> 

G J TO  lb 

15  .ALl  V Sr  T (K, 2o-I , K*1,2o-I) 

16  CA.L  HIOE 

17  continue 

HO  IZOnTAL  line,  PkESSUKE  TO  SJCTIuN  side, 

AT  BOTTOM  „F  NEXT  dODY. 

CulL  V SET  (K,2o-I,K,I) 

NEhjEG  = .F  ^ lS  E . 

lull  H I jE 

18  Coni i n U l 

^ijEd  done,  now  finish. 

TOr 


iF  lEsS  THU,  FOUR  T xiclS  mkE  DRAWN,  THE  lAP 
r 0 <■'1  j FKOM  THE  BOTTOM:}  OF  THc.  NEXT  TIER  (KTOP 
} 1)  . 

IF  i l L FuO\  TIERi  Ant  PRESENT  , THE  .iAP  IS 
rORMEu  FROM  THE  i OP  LlSi  (KTOP  = 2). 

< T J r = 1 

IF  ( ' T .jt.  u)  sTOP  = 2 

GAll  TJPlR  (Ni  i-  1,  1,ihAX,Ki  OP ) 

IF  (IMS*  .Gt.  13)  GO  TO  25 

POT  TuP  ON  JNCuRt\E0  3 A RT  Or  LOWER  TIER. 

GALL  TOrPtk  (NT, IMAXfl, 13, 1 ) 

29  GOn  i INUE 

CALL  PljT  (XF  3«G»C.j,~3) 


GAll  T x Kt  li  ( TNj  w) 

TH  = Tl  FT  - T MOW 

r*  -c  1 07  *,  "HxuiN,  TIME  = '* , TH 

PkimI  ♦,  "v/hLIj  WAS  CALlEu  ",  NVQ,  " TilcS” 

iF  ( T N 0 W .GT . J ) GJ  TO  1 

P<lNT  ♦,  "LLSS  ;hAN  F WE  iECUNJj  LEFT." 

3 o GJNTiNUE 

^lL  W’-'oCl  (J.  0 . 0.  105  , "FINISHED",  90.  0,  3) 

P -<  1 .mT  *,  N71tW^>,  " Yi  EH  S D \ A W N . '* 

LAll  Pi.  OT  E 

E M 0 


% 


S J JK3  UT IN  t uLDA , A 

UUMMJN  /LISTS/  MuiS  1 (li)d,  2)  , LLlS  1 120,  o)  , 

1 LLiST'3(‘tjlSjd)  , L T c ( 4 , 2 ) , lT0P(13,a) 

3 0 n m J N / B L A Ct  / * d ( 5 , 2 7 ) , Y3(5»27),  Z3(p,27) 
CuMMJN  //  rvVMAi  > 4,  5aS)  , PlMAT  (•+,  5 12)  , RXdl?,2/>, 

1 RYo(p,27),  rZj,p,27),  RX  ( 2 1,2),  RY(21,2), 

2 rZ  l 2 1 » 2)  , FQ(c,o),  lid),  Su(2,a),  Jl,  J2, 

3 TIN,  T2N,  MANY,  NT 

j 1 Me  MSI oN  X ( 2 7 ) , Y S l 2 / ) , Y P ( 27 ) 


Jl  = 

1 

J2  = 

12 

Rl  * i N 0 , 

J J 3 K = 

1* 

RE  a J (t, ICO) 

Z 

R£  A j l a , 1 0 0 ) 

(Xii) ,YS(J.),YF(1) ,1=1,27) 

3J  1 I 

1 * l 7 ,2 

J = 

If  1/2 

X J l K , J ) = 

XII.) 

Yd  (R, J)  = 

YF , h 

Zd  (K,  J ) = 

Z 

1 

2 u N 1 I N J _ 
DO  2 I 

2d, 53, 2 

J = 

1 + 1/2 

X d l R , J ) = 

X ( 5 4 - i ) 

Y d ( R , J ) = 

YS.  54-1) 

Zd  (R, J ) = 

Z 

2 

CuMTiNJu 
IE  l<  .^3.  p) 

G TO  a 

RE  u o (a, 101) 

( IB-MAT (a, J) ,1-1,4) , J=J1, J2) 

Jl 

Jl  4 123 

J 2 = 

>2  < 1 2 o 

ICO 

FORMaT  ( 3 F 1 0 • 

5) 

101 

F OR, “A  I l a l 14. 

7) 

3 

2 U N 1 I N U t 

4 

RE  A j ( a , 1 C 2 ) 

(l  wIST (1 , J) , J = l, 2) , i=o, 1 Jd) 

lu  2 

E uRNA T ( 2 i o ) 
Rh.  A o ( a , 1 0 3 ) 

<((LLlSla(K,J,J.),I  = l,<J),J  = l,13) 

10  3 

F 0 \Ma T ( o I b ) 
RE  A j ( a , 1 0 2 ) 

( ( _ Tt  (K,j)  , J = 1 » 2)  ,"R  = 1 , h ) 

RE  A j ( a , 1 0 a ) 

( l - T QxX-J-yl ) ,1=1,4)  , J = l,13) 

104 

FORMAT 

- — 

rE  T URN 
EN  D 

K = l,  4) 


Ol,  O C j Cj  s>  j Cj  Cj  O 


0l0-<  qua 


« 

J 


co.i.un  /JBjtcr/ 

V H A T ( 4 , 

3a ) , 

XFT (21,2) 

, TFT (21 ,2)  , 

Z FT (21,2) 

0 u M 0 N / T •<  F Ck M / 
Lu^'UN  / L 1 o T o / ' 

ZM  A T ( 4 , 4) 
LIST  1 1 u 3 , 

9 

2) 

TNLT (4,4) 

, l-IST(20, 

0)  , 

i-Li.iT  3 1 4 j 13,  3)  i 

LT£(t, 

2) 

9 

LTOPt 13,4) 

bo  :y  i 

jAU  ( 0 "AT  (i,  11  , 

1=1  ,-r) 

/ 

2* 

G.O, 1. G , -9 . 

5 / 

OA  i A ^ J id  J (j.,2), 
/ 

j m t A ( \J  —A  i ( X , 3 ) 

1=1,4) 

/ 

- j 

.322677,-1. 

0 , J • 0 

, 0.367  732 

1=1,4) 

/ 

2* 

Q.0,-1. G, 10 

.0  / 

DATA  ( (1,4)  , 

1 = 1,4) 

/ 

,■> 

U • 

322o77  ,1.0, 

G.O,- 

0. 1j7  7 32  7 

DATA  ( \J  flA  ] (1,3), 

1 = 1,4) 

/ 

-1 

• 0 i 2*  G • 0 9 1 • 

2 / 

DA  "a  (y/'AT(I,b), 

1= 1,4) 

/ 

1. 

u 9 24  0 • 0,G.  1 

7 

60.:r  2 

jata  u t (1,7), 

X = 1 , 4 ) 

/ 

2 * 

b • G 9 1 • 0 » - ^ • 

45  7 

DA  Tm  ( \jr. AT  ( x,  3)  , 

1=1,4) 

/ 

• u 

• loi 3 3 6 9 - J . 

5,1.0 

9 * 

* • G 9 1 1 3*  / 

D m i A ( i/  '1 A i ( x , 9 ) , 

1=1,4) 

/ 

2* 

G.O,— 1. 0, 9. 

3 / 

OA  TA  ( y/MAF  (1 , 10) 
/ 

Jm  i A ( ;:iAT  (1,  11 

,1=1,4) 

/ 

G 

• lbl  3 3 0 , u • i> 

,1.0, 

-9 . uO  3 ofao 

,1  = 1,4) 

/ 

- 

1.0, 2*0. 0,1 

.2  / 

DA  i » ( (/MAT  (1 , L2i 

,1  = 1,4) 

/ 

1 

. 0 ,2*  0 . J,  J. 

1 7 

30jT  3 

u m i h ( \/  T ( X 1 1 3 ) 

,1  = 1,4) 

/ 

2 

*0.0, 1.0, -9 

.35  / 

GAIA  (l/^ATdsl'+j 

,1=1,4) 

7 

- 

0.161333,-0 

• O 9 1 • 

0,- 

9 • 0 1 o 1 04  / 

jATA  (V'lAi  (j. , 15) 
/ 

jmTh  i t ( i , io. 

,1=1,4) 

/ 

- 

C.322o77,2* 

-1.0, 

13.1 67732 

,1  = 1,4) 

7 

2 

*u. 0,-1. 0,9 

.43  / 

u A T A ( \MA  T ( X,  17) 
/ 

UA  T A < i/'“i4  T L,loi 
/ 

l/mTm  (i/iAT(x,19- 

,1=1, A) 

> 

j 

.322b77, 1.0 

,-1.0 

,9. 1322oo 

,1  = 1,4) 

0 

.1o133o,0.6 

,1.0, 

-9 . 633  3oo 

,1  = 1,4) 

7 

1. 0, 2*  0.0,  1 

.2  / 

DATA  ( 0 H A T ( x , 2 c 

,1=1,4) 

7 

1 

.0,2*  0.0,x. 

1 / 

bj  jy  t 

u m i ^ i J ^A  T ( 1 9 2 1 * 

,1  = 1,4) 

/ 

2 

* G . J , 1 . 0, -9 

.25  / 

G A 7 A ( </.iA  1(1,22) 

,1  = 1,4) 

7 

- 

G.lol333,-u 

• 5,1. 

0,- 

0 • -)~t  1 1 .34  / 

UHlM  ( \/  1m  T ( i , 23) 

,1=1,4) 

7 

- 

0. 322o77,2* 

-1.0, 

10 . Jl7  7 32 

* 
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" 


•«.■•#  *5* 


'W*» 


T 


■ 

QA  I A 

( /MA  T ( 1 , 2'-  ) 

h-* 

II 

M- 

4 

7 2*0. G, -1.0, 9. 33  / 

Dm  T m 

( 7-AT (1,29 

,1  = 1,-/) 

7 G. 322577,1.0, -1.0,3. 9o22od 

t f 
JA  i ^ 

( V".A  T ( x , 2b) 

,1=1,9) 

7 Q.lol33d,o.c,1.0,-9.Hoddoo 

J A i n 

( v/9AT  (1,27) 

,1=1,9) 

7 -1. J, 2*0. 0,1. 2 / 

p 

DATA 

( y AT (A, 22/ 

, 1 = 1,  t> 

7 1.0, 2*0. 0,0.1  / 

P 

BODY  5 

■J 

D A 1 h 

( y lAT  (1,29/ 

,1=1,*) 

7 2*0. 0,1. 0,-9. 13  / 

l»  A i A 

( y 9A  7 ( i , 30  / 

,1=1,9) 

/ — G.lol33o,—  0.3, 1.0,— 

i d. Cool  39  / 

Dm  T h 

( y -1AT  l 1,  31/ 

,1  = 1,9) 

/ -u.  32267 7, 2* -1.0, 9.  8o7  7 32  7 

Data 

( y 9A  i ( 1 , 32  . 

,1  = 1,9) 

7 2*0.0, -1.0,9.23  / 

0 A T n 

( y "A  1 (1,33/ 

, x = 1 , 9 ) 

7 S ,322o77 , l.o, -1. 0,3 • 832  2bd 

? / 

DATA 

( yrtA  j (1, 3-) 

,1=1,9) 

7 7 . 16I 33 o , 0 . 5 , 1 . 0 , -9 . 3o 3 dob 

i / 

DATA 

( y T ( 1 , 3o/ 

,1  = 1,9) 

7 -1.0, 2*0. 0,1. 2 7 

P 

D A T h 

( y c9A  1 (1,3c1 

,1  = 1,9) 

7 1.0, 2*0. 0,0.1  / 

L* 

LDGtS 

DATA 

( X FT  ( 1 , 1 ) , : 

=1,21) 

/ 21* - 0 . 1 / 

f i 

DATA 

( X F * (1,2)  , * 

=1, 21) 

/ 21*1.2  / 

1 m 

DATA 

( Y FT (1,1)  ,. 

=1,21) 

/ 2*0.3,0.d5,0.7o,0.d,0.7, 

* 

b 0.7? 

,0.3  3,0.7, 

1 G . o , 

G.i/,G  . */ , G. 

0 , U . 3o  , 

0. ‘♦,0.3,3.35, 0.2?, 2*0. 2, o.9  / 

1 i 

Da  t a 

(Y FT (1,2),. 

= 1,21) 

/ 2*  0 . 93  03  2 , 0 . 93  0 5 2 , 0 . 3 30  3 2 , 

j>  G. 33032, 

1  j • 23  0 3 2 , G . 3 3 ii  3 2 , G • 2 3 G 3 2 , o • 2 o 0 3 2 , u . 1 c o 3 2 , G • G 9 0 3 2 , * 

1 C.-19-+}* 

2 0 • G 3 0 3 2,  - 0 < 0 u'v  3,-C.Gl3+b>-0.119‘+d,-0.Go946,- 

: u . 1 j 9 1 i 

3 2*-G.2i3-,3,G.‘-_'032  7 

□ Alt  (ZFT  II, 1)  ,.=1,21)  7 13.0,2*9.5*9. -5, 9. *♦,9.39  , 
i 9.3,3.23,9.2, 

1 2* 9 .13, 9.2, 9. 25, 9.3, 9.3s, -./•‘♦»9.-,3, 2*9.5, 2*10.0  / 
DATC  ( ZrT  (1 ,2  ) , L =1 , 21)  / 1 G . 0 , 2*  9 . 9 , 9 . 4 3 , 9 . - , 9 . 3 5 , 
£ 3.0,9.2«/  ,9.2, 

1 2*9. 15y9. 2,9.25»9. 3,  9. 35>  9.-+>  9.  *3  » 2*9 . 9,2*10.  0 / 

% 

V* 

C LOCUTIONS  OF  dUJY  MAT-UDtS  I M VHAT 

C 

JATc  ( M ..  i S 7 (1,1/  ,1=1,3)  7 1,7,13,21,29  7 
j A i A ( 9 i_I  i>  T (1,2/,  I = l,s)  7 2*o, 3*3  / 


D A l A ( L wl  b T (lyi.)  y X • 1 y ir  ) / I<»ylbyl2yl3yl2yl5  / 

DATA  l^wIST  I2f4.i  flslf  3)  / 1 1 y 16  y Ilf  Id  t 1 1 y 1 5 / 

u A T A iL.ibT  (^i),i  = l,o)  / 22,26yllf  Ilf  22f25  / 

u & i * )l-lyo)  / 03y33y21y22y  33*37  / 

LAiA  l!>f*)yi:lfl)  / 3cy30y32y33y32y37  / 

D *■»  i A (Lk.IbT  (0)i)  fi'liO)  / •*3y‘*dy3ly32yH3yL7  / 

D m T A (LwI^T  ( f y a.  * y 1 - 1 y t>  l ^ ‘*2fk*3y*f2y*3y*2y4  7 / 

Dm^A  ( Lul  ST  (O  y i > y I = 1 y o)  / > 3 y 2 6 y 4 1 y H 2 y P 3 y t>  7 / 

JAiA  (L'-I^T  (9yi)  yi:lf3)  / >^yt/OyP2yI/3y22y57  / 

DmIm  (LLlSI ( lUy - ) y I-ly o)  / ^ly53y ^ly^2y>ly37  / 
jAlH  (Lfc-ibF  illy*-  )yl=lyfj)  / > 6 » ^ i | ?o  y ? 1 | ? 5 j 5 7 / 
DATA  (LLiSr(l2y-)yl  = lyD)  / J50)  »2'->)^5)57  / 

( L LI  i I (l3y^)yI  = lyo)  / 4by4t}y4ly*fLy*t6y  7 / 

^At  M (L^IbT  ( 1 4 y * ) yI=iyO>  / 4b  y 4 3 y 45  y 4b  y 4 t?  y 47  / 

•>  4 T A (LLlbTllby  ) y 1 - lyO)  / 3by33y3ly30y3u*37  / 

Jh  i A ( L Li  5 I ( 1 b y a.  ) y 1 -1  > O J / 3Dy33y3^y3C/y35f37  / 

JATm  ( L L i b T ll7  )>)yi~lyj)  / 2tty23y21y2iry2*ff25  / 
Dm  T A (LuIST(ldy.)yl— lyO)  / Ilyl6fllyllyllfl5  / 
JmTm  (LlI^T  (19)  a)  jl-lyo)  / 1.4  y 1 0 y l **  y Ilf  1 *♦  ) 15  / 

JmTA  ( c.  u 1 S T ( 2 Q y *.  ) y I — 1 y O ) / l^ylOyliyl4yl3ylb  / 

v 

3 Pl*»Nl  IRaN.LATIjN  matrix 

: 


U A i A 

( T JlT  (1,1), 

t 

». 

II 

'-4 

/ 1. 0 , J*  J . 0 / 

j A i A 

(Tali  ( a , i> , 

1 = 1, A) 

/ u . o , 1 . 0 , 2*  0 • 0 

/ 

0 A 1 A 

( T T (3,1), 

1 = 1, t) 

/ 2*o.o,i.o,a.o 

/ 

Jh’  h 

(T  ,J_T  (a,  li  , 

1=1, a) 

/ 3*u.u,l.Q  / 

[ ^ 

-j 

P L -»Nt_  f-  fc  (\i>  - 

to!  ItfL 

TA;A  JbFiMHATlUN 

i A Tr<I  X 

1 

U 

JhTm 

(Z  AT  (1,1), 

1=1, A) 

/ 1 . C , 3 * J . 0 / 

liATm 

( Z MA  7 (c,  j.)  , 

1-1,4) 

/ o.  o, i. a , 2*0. o 

/ 

J A 7 M 

( z ia r ( a , i ) , 

1=1,4) 

/ 3* l. 0,-1. a / 

i 

Data 
£ S □ 

(Z  AT(it,1), 

1=1,4) 

/ 2*G.O,1.0,G.u 

/ 

o o o 


\ 

i 


[ 

l 


4 


i 


I*- 

l 

r 

if 

#* 


b J BkD  U T IN  t D0L1ST 

OuMMOn  /EDGE/  NB » VjU),  \/E(4) 

CU-’lON  /HHiCri/  .N(4,1C9>,  YWl.?) 

COMMON  / H L I bT  / JLIST(IO^),  JMmX 

COMMON  / / RVMm1(4,9h3),  SuMAT (4,912),  RXJ(9,27), 

1 RYi<9,27),  R Z3ib,27),  RX  ( 2 1 » 2 ) , RY(21,2), 

2 RZ(21,2),  FQ(2,d),  M<S),  iD<2,4>,  Jl,  32, 

3 i IN,  T 2N , MANY,  NT 
31 “fcNb I UN  JuU(m 

ib  i H:  LINE  iN  THU  OR  MURE  HlNuOHs? 

JJ  = 0 

DO  1 I = 1,4 

IF  UN(a,N8)  . L T . 1)  GO  Tu  1 

JJ  - JJ  + 1 

JjO(JJ)  = I 

1 CunTINUL 

IF  ( J J . j T . u ) GO  TO  2 

PRINT  * , " NU  cNTrIEj  FOJNJ  F 0-%.  BODY  “ , NB 
S T Dr 

2 JMkX  = 0 

Aoj^MjlE  LIST  OF  BOOIeS  IN  SAME  WINjOWo  Ab  laNE 

C A e L Me  MS  E T ( JlIST  (1)  , JLISi  (10  9)  ,0) 

30  : I = 1 , H A N Y 

DOS  J = 1,jJ 

IF  (L  N ( JuO l J) ,1  .uT.  j)  GO  TO  * 

3 CuNilNUE 
GO  T 3 5 

* J M A a = JM  b X ♦ 1 

JeiST  ( JMaX)  = 3D  JDO(J)  , I) 
b 'u  < i iNJi 
Re  t URN 
END 
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i r 


m 


bJ3KJuTxlML  FINS'!  (Ll,w2»Mj»(1V»f4(/) 

COMMON  / L 1 -a  T S / l Il>T  ( 1U  'it  2 J t LlIST(2J»o)»  lLISTSI** 

5 1 6 , i ) , 


i-  T E(  *» » 2)  i 

lTO<-  i13,4) 

M J 

= Li' 1C 

- l2/10 

N V 

= ML  : ST  ( Nj  , 1 ) 

f Li  - 'Vd*lJ  - 1 

MV 

= MLx  SI  ( MJ , 1 / 

L2  - i3*l0  - 1 

Rt  i LUN 

F ( J 

* 


* 
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o o 


SuB.OUT  iNt  HI  Jt 
SUMMON  /EUl>E/  N.,VDlt)  ,1/EI-l 
oOMilul'i  /F.< Ai"E/  'll-*  YF,  mF,  oF  » OF,  jF 
C U M M J N /Llbli./  LIS1(1GM,2),  LlIST  ( 2 0 , a)  , LLlSTu(-r, 
**  1 3 f i ) t 

1 L ^ l ( t ) , lT  OF  ( 1 3 , ■♦) 

Summon  /HlioT/  jlIST(IQO),  JflrtX 
CuF.iiJN  /BulY/  n_hseg. 

0  ^ M 0 N //  r<vMAT  •+  , 3 •*  a ) , 3i_MAT(t,il2)»  <Xo(a,27), 

1 4Ycli),2n  , FZj.3,27),  <vXl21,2),  -<Yl21,2), 

2 -<2(21,2),  FQ(2,3),  -M  ( 3 > , Jl,  J2, 

S I IN,  T2N,  (ifi  NY , NT 

l3o1oAL  N E WSE  G 
X3„AxE(a)  = OF  CF*X 
YiLnuLlt)  = Br  ♦ AF * Y 
? u x N i l J , i ) = VElJ)  ♦ T*  SO ( 1 , J) 

G LOAD  SB 

C K U W 1 IS  i -ic  QiFFtMEN^E,  V 5 - W t • 

0 kOH  2 IS  V-. 


DO  i J =1, 

SO (1, J ) = «/3U>  - WE  U) 

j j ( 2 , J ) = WE  i J ) 

1 C 0 N i i N U l 

C 

0 I EjT  liNE  A&AINii  EAoH  WOLJME 

0 lX.LU JxNG  . TS  OWN. 

T 1 = 2. x 

T 2 = - . . G 

sJ 

I G riflj  WINDOW  F 0 -<  THxS  liNE 

'■J 

Ir  l^cW^tG)  GAl_  uOLISI 
DU  ^ JTx  = 1,jMaX 

J = JL*  jT  (JTl) 


NO  DENOTES  ThE  TjJY  U WHlJH 
THr  LINE  D.lCNGS. 


IF  ( j , c.Q  • 

No)  AO  TO  2 

Jl 

= 1L.SI  (J,  1) 

J 2 

= MLiSl  ( J, 2) 

GAxc  S£t< 

T 1 

= Am. N1  ( 11, TIN) 

T 2 

= AM  X1(T2,T2N) 

WHxPFING  h oEAD  hO-<3  E 
LINE  Go  FlETlLY  HIjuLN. 


IF  (71  . 

2 :ontinu[ 


L . 0 . G 


aND.  T 2 


* J Li  1 . J ) '\ L_  | J «N 


OI~r  LA  Y 

IF  T 1 > l._  AND  72  < j.Q,  Trtt  LINE  IS 
CO'IPlEiELY  \/i  S13LE. 

IF  ( 7 1 .GT.  l.u  .ANO.  i 2 .-7.  0.0)  G(J  7U  5 
Ir  (7  1 E.  0.0/  GU  73  3 
T 1 = AM. N1 ( Tl, 1 . 3 ) 

LINE  IS  i/i  loLE  POi\  i bETHEEN 
Z E <0  AND  i 1 . 


ChLl  P l 01  ( XBlh.l  ( \IE(.  1)  J , YSCAlc  ( VE  (2)  ) , 3) 

C A i_  L P L 37  ( XSCAuE  <F OinT  (1 , , 1) ) , YSCAlE ( POINT  (2, Tl)  ) ,2) 
3 lF  (i2  • jE  • 1*0)  RETURN 
T 2 = AM  XI (T2, 0.0) 

LInE  Il>  Vo.  IBot  FOR  7 btTREt-N 

72  and  i. 

c 

■*  GAlL  r L CT  (XSCm.  E ( V c(  1)  ) , Y3CALE  ( \ldi2)  ) , 3) 

. Call  Plot  l XSGA  . E ( POINT  (1 , 7 2)  ) , TSCAut  ( POINT  (2  , T2)  ) , 2) 

RETURN 

I b T 2 =0. 

•'Go  7 0 •+ 

END 

t 


FJNCriJ.j  i NT  HEr\~  (Y) 

wOMi',UN  / W H I o H / .N(4,1Q3>,  Y*15) 

1 N T ri£  KE  =0 

IF  (Y  . oT  . YW(2,  ) Go  T 3 1 


YW  (3)  ) GO  TO 
= 2 


YW  (4;  ) GOTO 
= 3 


■ IV  • 


iJOkJUT  iNE  MMPY  ( A , d ,2  , L,  M,  N) 
DIMENSION  A IL , Mi  , 6(1, N),  C(L,N> 
30  i i = 1 » L 
D J i J = 1 , N 
: ( i, j ) - q . o 
DO  1 K - l,rt 

3(1, J)  - C(i,J)  +■  A (I , K)  * J ( K,  J) 

1 DOfiilNJt 
kE  i 'J<N 
END 


I 


< 


(i 


o o o 


N 


Z m A i ( a , a ) , 

, y v , z v 

M MAT (a, 3d) , 


t nlt  (*♦»•♦) 

X FT (21,2)  , 


Y FT  (21,2) 


S U b J J T i N E t\UTP. 

Co. VI  ON  /T KF UkM/ 

CUM.IjN  /VIEW/  a. 

„OmiJN  /JaJuCi/ 

1 ZM  (21,2) 

C U 1 M 3 N /a  L A uE  / \3(&,27),  Yi(5,2Z),  Z3(s,27) 
CUf'MJh  / M T k1  X/  RMAT  (a,  a) 

CUMr.ON  /HUH/  FkSP,  X ,1 1 N , X'I(,X,  YMxN, 

CUMM3N  //  RvMAT  (t,!),#)  , cl  MaT  ( *, , b 12 ) , <Xd(5,27) 

1 \ Y i ( b , 27  ) , RZ  j (S>,  27)  , R X ( 2 1 , 2 ) , RY(21,2), 

2 K Z ( 2 1 » 2)  , FU(2,d),  1(3),  30(2, a),  Jl,  J2, 

3 i In,  T2N  , rt A inIY  , NT 

ul MENTION  WAIT  (-,<*»,  PMAMa.h) 

L J o i- A l PKjP 


Y 1 A X 


T''LaN3F0n.M  AN u 3 a a t_  E COJKOlNATtS. 
FI, ST  THl  TiRTREb,  ThEN  THE  BLA3L. 


XI  IN  = YlIN  = l.Ot.5 

XMAX  = YMAX  = -l.OEfa 

Call  RA  i (XFT  , Y T T ,ZFT ,RX,\Y,kZ,21,2»21) 

lAll  K A *■'  (XD,YD,Zt3,R^D,r<Yci,>'Zd,p,27,NT  + l) 


TRmNSLaTl  ^.nD  ROTATE  -lanes. 


lo  0 


THL!  ( a » 1 ) 

T NlT  ( A , 2) 

T N L i ( a » 3 ) 

CAL„  MM?Y 
CAl.l  nrir’Y 
DO  1 J 
33  1 1 
RV*-T  ( I , J ) 
Continue 
03  2 j 
DU  2 i 
RVvA7  (I,  J) 
CGNTiNUr 
C A w i.  M l i P 
PRxNT  1-G, 

F 0 - MAT  <* C 
1 (1H  ,*F15.7)> 
RE l URN 
tN  J 


= XV 
= Y V 
= ZV 
( i;M  AT 
( ZM  AT 
- 1 , j b 

= 1 , 

= VM-  T ( I , J ) 


TNL • , WA IT , - , a , A ) 
WA IT , PM AT A) 


37  , ‘j  A 3 

1 , A 

8l  MAT  ( I,  J-  3b  ) 


(HMmT,RVMAT,d-t3) 
((Pi.T(l,J)  » J = 1 , *»  j ,I  = 1,h) 
HlAnF  ROTATION  MaT\IX*/ 


127 


t 


..1  . ,..r • • .r«»v.rfe.  ■jeji-.&x rv '* . . *. . y 


O O t i O O O O O t J OUO  00(.(>  o o o 


S JJRO  U f iNE  SEEK 

o u H H J N / 0 / i)  A.  PHA  , THIN,  i M m X , K T , J i 4 , J S , ..  1 , l 2 

Z Ort.IJiN  / dO  J Y/  N WSEG 

C 0 P M 0 N /X  RVMAiL-»,b4j),  3l'1AT(*,,512),  r<Xd(t>,27  ) , 

1 ‘{'f  w i ? j ) , f\Z3.G,27),  «X l 2 1 , 2 ) , RY(21,2), 

2 \Z(21,2),  hQ<2,3),  1(o),  oD(2,-»),  Jl,  J2, 

3 Tl.<,  TEN,  hANY,  NT 
LOGICAL  NlWScG 

Md^IlPlY  S?*VMAi,  0 3 T A x N Pi 

JS  = Jl  - 1 

N - J2 

in  is  The  n j i be k of  0 l a nl  s on 

T He.  300Y  I , QOEST  ION. 

C4lL  M .IP  Y ( oU,R  , MA  T ( 1 , Jl)  , Pu,2  , t,  N) 
f\J.N  1 uF  Pj  xS  U , i\JW  2 15  P 


oOsi  iHKOUjH  Fu,  RlTmIn  KElEVmNT  PAIRS 
DO  ^ J = 1»\ 

IF  UvMAI  ( 3,  J*J- ) . G 1 . 0.0)  Gu  10  2 

IF  THEot  « E TKJE,  THL  INEQUALITY 
IS  A.WhYo  -ATIS^IEJ. 

uHeCK  AgAI  oi  INVISIBLE  PlANES 

If-  (PCI  ( 2,  J ) .GE.  0.0  . A N 0 • P U 1 1 , J ) . j E . J . 0 ) Gd  Tu  -r 
IF  (PQ(2,J)  • GT  • u . u . ANJ.  ("0(1,  J ) .li.  0.0  • ANu  • 

: ( PQ  ( 2 , J)  + 

1 P0(1,J))  .GE.  :.u)  GO  TO  - 
IF  (RVMAT(3,J+J^)  • i_  7 • u.O)  GO  TO  3 

IF  T Htjt  A £ TKJE,  THE  inequality 
Ig  NE  VlR  S.  TISFIlJ. 

CHeGK  AG  Ax  NS  7 VISIBLe.  hlANlS 

IF  THE  T lS  S In  g T »T  l'-' cNT  2 Akl  TkJc., 
i Hl  LanE  x^  ON  THE  gUxFACl  OF  A VISIBLE  PLANt 
UK  BlIWEEN  THE  uxEwER  AND  A VxgIBwE  PuANE. 


2 IF  (2 3Q(l,J)  .lE.  1.0E--+  . A N u . (Pi(2,J)  * 

1 PJ(1,J))  . l t . ...0E-+)  j0  TO  10 


XIV 


r 


3 jrt  = j t /.  «■  i 

M l jT-»  ) = J JS 

**  CjN7iNJ_ 

FI'O  I NT  e-\j  EL  T i ONS  Jr  T - AuPHm  lI'JES 

IF  i ft  0 OK  _ EScs  T - MLrhft  LINEa  £Xj.$T, 
fJO  Sj  L lT  10  « j.  ;>  P0oSI3i.t. 

iF  ( J T A .lT.  Z)  GO  TO  13 

T.'ilN  = 2.  u 

T 1AX  =-2.0 

KT  =0 

JMLX  = JT  F - 1 

iNi’tXoLC  FlOwS  WITH  T = 0 A^J  T = 1 

L 2 = o 

D J r j = 1 » J T A 

T = 0., 

1 ( j ) 

-1  = M J 

('LPhA  = P0t2,hj-Jo)/KVFA1(3,MJ3 

lF  ( 4 lPhA  .LT.  - 1 . Cl-o)  jQ  TO  5 
tfA.ID 

5 _ AlPhA  f P4  < 1 , * J-  Ja) /*i/MAT  ( 3,  *1  J) 

T = i. : 

i F t A L P K A • L T • — 1.0E  — b)  j 0 To  o 

-AlL  i/AlID 
b SO'iilNUt 

1 O T £ EL  TI  j ,JS  hiTH  hLPHA  = Q 


Li_  PHA 
Jj  / J 
Ll 


= o . : 

= 1 1 J T A 

= ivl  ( J ) 

= H(j>  - JS 


i.F  14  dS(PQll,MJ>)  .Li.  1.uf-d)  GO  Tu  7 
3 = -f . ( 2 , *<J) /KJ ( 1 ,M J) 

GalL  v/ALIO 
7 C 0 N I L N U E 


I NTERSt*  Tl ' Ni  rtITn  £ Ain  OTHER 


j J J 

K 1 
MJ 
Ll 

0 J 3 IS 
M < 


= 1,  «MAX 
= J «•  1 
= M<  j) 

= TO 

= <1.  JT A 
= 1(\) 


r 


I / 


L 2 = MK 

JE  - wH*P3l  1»  -1K-J5) 

IF  14BS  (jt.NOM)  . _ I . l.Jt-fc)  GU  TO  3 
T = (w  *FU  < ^ * I**-  Ji)  - Pot  (2,  U- JS)  ) /DL.Mj'1 

Al^mA  - (1  t P J ( 2, IK- J3)  ) /K^rtAT  ( 3, 

■ IK) 

i. F ( •*  L P H A .lT.  -l.GE-G)  jU  '0  <3 

T rlii  T A No  AlPhA  'IOjT  ALoO  oATISrY  AlL  Trie 
UTiE^.  INEOjAlIi  !<-:>• 


ChLl  (/AlIu 
3 CONTINUE 
9 COniINU 

T 1 ) = T . N 

T2n  = Tw-  X 

IF  U3S  J1J-TEN,  .Ll.  l.DE-3 

1 ( T 2 N • o T . C.  0 . A N o • TIN  • o T • 

2 ( i 1 N • o T • 1*0  . AND . <2  N «Di« 

rvE  T LKN 


JK. 
T2N  ) 


• J P • 


TIN))  GO  TO  10 


lInE  ib  Co  PLETEi-T  i/lbi.BLti 


10  tin 

T2N 


KtTCKN 
EM  J 


2. 

-2. 0 


o  J i !>.  3 U T N L TuPP-  \ (K,l3,It»lW) 

C u f M J N / L 1 o 7 S / Llbl  (101,2),  LI-IjT  ( 2 0 , o ) , LLIoTitA, 

; i 3 * 3 ) » 

1  *-it(t>2Jf  L T 0 r'  l 1 3 , a ) 

3 U " i-i  0 N / E 2 G l / N t.  , *JHh) 

.GOMMJN  /3uu  Y/  Nr  PSt  G 

CunrtJN  / / KV  MmT.4,e.‘0)»  3i.iiATC‘ti»12)f  r<)<3(3,27), 

1 -<Yo(5,27>,  K Zo(fc,27),  «<<21f2),  -<Y(2l,2), 

3 *Z(21,2),  PQt2,o),  Ho),  jj(2m),  Jl,  J2, 

3 TIN,  T?N,  Many,  NT 
L J G 1 **  A L Ni  i)SuG 
Mi  =■  0 

J 0 o I = I j , 1 E 

D3  ^ J - 1 , ,2 

IF  (I w .NL.  1)  jO  TO  1 

„4lL  FI  NON  (Li-i.TB(K,I,J)»LLlbTB<K,I,J'«-l),i'l3,i,1i/,NV) 
Gj  T J 2 

1 Ull  FI.jJM  l LT  J-  ( 1 , J)  ,l  T JF  ( 1 , J*1  > » No,  “I  , N (/ ) 

IF  ( 3»M\/)  .lT.  0 * C • * N u • \VrtAT(3,N\/)  « _ T • U.O) 

: GO  10  :: 

2 IF  (J  • Gi  . 1)  G T 0 3 

PkEoGU^F  oi  E 

3-»^l  ‘lo.i  (K,I,<»I*-1) 

GJ  TO 

j jC i luN  b lu : 


3 v/  S I i 

a N E •'  b i G 
CA  L u H I :l 
Ho 

5 OGh i IN J- 
o - U J INUl 


(K, 2o  1 , K , 2 7 - i ) 
= . N E . NJ 

= N3 


lIN.  Fr<OM  jJCiIGN  SiOt  TU  PmESSeKL  oIjE  IF  THii 
joc_GN*T  lNu  A i THt  TkAIlING  EUot-« 


IF  (IE  .jt.  13)  -<ETU-<N 
^al_L  o \ T lK,2o-I,K,l) 
C A l u M 1 JE 
i\E  i U\N 

EN  J 


SJ-iNJUTiNt  vALi 

COMMON  /O/  1,  „_PHA,  TMiN,  TMAX,  KT,  OTA,  JS,  l1,  L2 
COMMON  / N W QAi.  / i\J  Q 

C 011M  On  / / i<tfMA7l4,b“0)»  JlIAT  (■♦  i j It ) > kX:J(;>,27), 

1 <Yo(5,^7),  kZbo,27),  NX(21,2),  *Y(21,2), 

2 Z 1 2 1,2),  Fu(2,c),  IIjIi  ->^(2,-,),  Jl,  0 2, 

3 T li^i  T2n,  MANY  , NT 

H\l  Q = nvQ  ♦ 1 

DO  1 L = 1, jTA 

IF  M(L)  .EU.  LI  .OK.  M(->  .EU.  L2)  3u  TO  1 
iF  (PQ(2,MIL>-J  ) * T *PQ  ( I , M l L)  - Jj)  - A LPH  A*.<J  -1m  T ( 3 , 

i MU)  ) 

1 .LT.  -i.GE-fc)  ETUKN 


1 

C 0 N i i N U E 

<1 

= KT 

♦ 1 

IF  (i  .GT  • 

TMIN) 

GO  TO  2 

T CU  N 

= T 

IF  KT  - 1) 

H f 3y 

2 

iF  (T  . i_E . 

TMAX) 

KETJvM 

3 

T MAX 

= T 

t 

«E TU  <N 

END 

Jl 

t 


* 


SU3-vJUTii'IE  VcsET  (i,J,K,L> 


CU^riJN  /EubL/  N , Volt),  Yr(4> 

„ u fi  .i  0 N //  NYMA1i4,5hS),  3L'!AT(tj512)>  i^X  J ( 3 |2  / ) 

1 ',Y;;(5,J),  RZa  13,27)  , rv<(2i,2),  RY(21,2>, 

2 rZ(21,2>,  HQ  ( 2i  o ) t lid),  ju(2,t),  Jl,  J2, 

i TIN,  T 2N , MA  NY  NT 


W 3 ( 1 ) 

= 

<X 

( I , JJ 

V3  (2) 

- 

KY 

(jl  , J) 

V3  ( i> 

= 

RZ 

(I  , J) 

wE  11) 

= 

KX 

» IK , L) 

v E l 2 ) 

- 

RY  . 

(K  ,L> 

l/t  (3) 

= 

RZ 

(K  , L) 

i\E  T U <N 

tNj 

lo? 


o o 


wINC 

« OMrlON  /Fr.  AME/ 
CuM^Jn  /hrliuH/ 


4 

a F , YF  , aF 
. N(4,1CH>  , 


0 0 N 3 3 N //  rsVMAi»t,t>4S) 


1 ^ Y a ( o » 2 T ) , ■>.  Z d i d , 2 7 ) 

2 <2121, d)  , hQ(2.  3)  , M ( d ) , 

5 T 1 u»  T 2N  , MANY,  N T 


, OF , DF  , JF 
Y nib) 

, 3 L M A T (t»5 12)  » 

, \X  ( Zi  j 2)  , r^Y  (21 1 2)  f 

u ( 2 y ) , Jl , 


<K 3 ( 3 , 2 7 ) « 
2)  , 

Jd, 


YS-«_£(Y)  = 

3r  * 

AF*  Y 

KFIx(  K,  i)  = 

U - 

1) * 121  - x) 

l,alL  ME  <btT 

HMD 

,IN(h3d),G) 

YH(1)  = 

a. 

YH  (2)  = 

Y F / *+  . 

C 

DO  1 I 

3,5 

Yw  ( x)  = 

C o N i L N J 7. 

Yh  i I- 

1)  + Y N ( ? i 

FIR  T^EE 

^ 0 2 L 

1,- 

id 

2*  _ 

11  = 

id  - 

1 

DO  2 I 

li,  i2 

jO  2 J 

1,2 

DO  2 K 

1,2 

(2  - K)  ♦ 1 


iNl’nc.rv.E  ktT-/FNi  h VA^Jt  JF  1,  2,  3>  Ok  t 

IN  UMHi_Kc(YS3A.  £ (RY(<F_W(<,x)  , J)  ) ) , u ) = L 


3 ON  i 

1 N J t_ 

DO  3 

L 

= 

2,5 

12 

- 

? * 

c_  _ 

11 

- 

12-2 

DO  3 

I 

- 

11.12 

DO  3 

J 

- 

1,2 

DO  3 

< 

- 

1,2 

1 N ( I N T rl  _ 

<E  l YS 

Cm.  E (kY ( <Fx\  (K , x) , J)  ) ) , x)  = 

D On  T 

x N Jx 

i F (Many 

.Lt. 

j GO  T 3 5 

J L A J 

- 

M A * i_ 

M1,C(MANY  + 1,103) 

NdEl 

= 

M-..Y  - 3 - 2b*  (NT  - 1) 

IF  (N;>£2 

• F U* 

25)  M«XL  = MANY  - 1 

DO  - 

L 

= 

6,M  AX  L , 2 

K 

= 

1 * ( L - o ) 7 2d 

1 

- 

1 <•  (L  - 5 - 2o*(K  - 1)  ) / 2 

C J - 

N < 

= 

1»- 

D J - 

N J 

= 

1, 

DO  - 

Hi 

= 

1,2 

1 .5- 


WK,  (2 


N J)  * 


SJukJUTiNL 

WINLj.  5 J 

M) 

OOtliUiM  /WHICH/  . NIh 

,10-9),  Yh(i>) 

PKiNT  100 

1G0  FjnHAI  <*G 

WIN-OW 

LIST*) 

N 

= rt/  3 0 

* -1=1  * 

IF  (M  .-T. 

1>  Gj  TO 

3 

00  2 I 

= 1»  * 

DO  1 J 

= 1,4 

F<iNT  1 j 1 , 

11  N ( J , l ) 

, L=L 1, L2 ) 

101  "O^M4T  ilH  30  In) 


1 CONiINUE 
P^lNf  101 

LI  = L2  ♦ 1 i -2  = L2  + JO 

2 DONilNUE 

3 L2  =1 

DO  4 J = 1,4 

P-UNT  1-1,  <1N(J,L>  ,L=L1,u2) 

4 DO  Ml iNU_ 

PKINT  131 
*.£  1 U V.  N 
EMU 


I 


J 


1 0.  'JO  OGO 


. 00573 

. 33ol9 

. 33619 

.0108  7 

. 36977 

.32202 

.02174 

.33457 

.33102 

. 03261 

.39071 

. 33  95  9 

. 0434b 

. 41223 

. 3+775 

.05436 

. 42o 16 

. 35551 

. I0o70 

.43153 

. 33909 

. Io30  5 

. 52572 

.41604 

. 21 7+0 

. 55929 

• 4344  7 

.27175 

• 53  3 34 

.44804 

. 32610 

. 5 3862 

.45617 

. 38  0 45 

. o 0 ~j  7 0 

.45909 

. 43h  8 0 

. 60 4 9 

. 4?  b 3 7 

. 45915 

.59562 

• 4 + 9 + 0 

. 54350 

.58033 

. +3  bo 7 

. 597S5 

.55759 

. 41815 

. 65220 

.52630 

.3*3 39 

. 70655 

.48826 

.35179 

.76090 

• 4 416  0 

. 32285 

.31525 

.38632 

. 27  to  0 

• 8 6 9 5 0 

.32212 

. 22370 

. 92395 

.2+993 

« lo50o 

. 97830 

.17157 

. 10143 

1 .03265 

.08881  . 

. 033+9 

1. 06526 

.03762 

-.0091+ 

1. 07613 

. 0 20  35 

-.02365 

1. 08163 

- .01095 

-.01095 

. 17  + 7 152E+02 
. 16713b  7c.  + 02 
-.  16+65flbt+02 
.164653bi+Q?- 

• 625  02  30  E+  02 
. 1668 1 9 1 E + 02 

0. 

- • 2046+33E+Q2 

0 . 

1102  40  7c.  + 02 

• 12o567c!E+Q? 

- • 1528247E+02 

i 20 4b +832+02- 
. 1528247E  + 02- 
-.  1 1 325Q7£+  02 
. 127530  9E  + 02 
0. 

-.207463b. *02 

0. 

- .95003  :>9Z  + 0 1 
. 11622512+02 


. 5+10425E +0 2 -. 
-.65309201 +0 1 . 

0. 

0 . . 

.1259o+0E+0  3 -. 
-.  48197394+0  1 . 

0. 

0. 

0. 

.14325352+02  -. 
-. 9947  854E+3 1 . 

0. 

0. 

0 . . 

. 1330978E+02  -. 
-.95823326+11  . 

0. 

0. 

0 . 

. 15465275  +0  2 -. 
-.1U9382+4+J2  . 


10000002+01 
130000JE+01 
10  OOOOOE  + O 1 

iooo  aooc  + ai 

1000000E+01 
10  0 00  0 02  + 01 
10u0  000ii  + 01 
1000000. +01 
1QQOOOOE+J1 
1000000E+01 
10  0 0 0 0 0E+01 
10000002+01 
lOOOOOOt+Ol 
1 0 0 0 000C.  + J1 
1000000E+01 
10000002+01 
10  0 J0002+J1 
100030 0E+J1 
1000000E+01 
10000002+01 
1000 0002+ 01 
10  0 3 J 0 0 £ + 0 1 


-. 10000002+02 
-.82894192+01 
-.  3236329E  + 0 1 
. 1035797E+02 
-. 1035797E+02 
-. 3303224t+02 
-. 85091354+0  1 
. 11312J0E+02 
. 104+4912+02 
-. 1000000E+02 
. 549768  1E+0  1 
-.  6+4951  lc.  + Q 1 
. 106o448E+02 
-.  10 ‘♦‘♦4914  + 02 
-.  1 06 64*+  8E+  0 2 
. 5 86  397  7 4+0  1 
-.  6604173E  + 0 1 
. 11312004  + 0 2 
. 10932J54+02 
-. 1J00000E+02 
.50+80742+01 
-.5  1962754  + 0 1 


«M|  4 


•*% 


1021  3305+02 
. 2Q74o365+02- 
. 10213305+  G7- 
*8287705+01 
. 1 1576595+02 
0. 

-.21o3232_+J? 

0. 

-.  73012394+01 
•92910975+Q1 
-.77472596+31 
2163232- + 07 ■ 
77472696+01- 
73102436+01 
93025742+01 

2 329  5t  56  + 02 

41057184+31 
53091316+01 
79505516+01 
2.329546_+02- 
795055  It.  + 0 1 ■ 
3o320C4l+01 
57396306+01 

2523077l+02 

164552  3c.+ 00 
1250694- +01 
31o423 16+01 
2523077l+02- 
31642316+01- 
1 2 ?9 0 46 c.  + 0 1 
11285556+00 

27322554+02 

6621401- +01 
69377734+01 
833035© 6+ 01 
2752255^+02 ■ 
63903564+01- 
1 4.353  084  + 02 
12636204+02 

30265?Oi+02 

23131004+02 
30201836+02 


0 . 

0. 

0. 

. 14401236+02 
-.  1 0 5825  71  +02 

0. 

0. 

0. 

. 17435016  + 0 2 
1 29379Ut+0  2 

0. 

0. 

0. 

.171  } 2 0 1 4 +0  2 
-.13034494+3  2 

0. 

0. 

0. 

. 2056643L+Q2 
-.  16276342  40  2 

0. 

0. 

0. 

. 21763106+0  2 
-• 1 7 4 5676c.  + 0 2 

0. 

C. 

0. 

. 25552706+02 
-.21477166+02 

0. 

0. 

0. 

.300341 35+02 
-. 25011375+C2 

0. 

0. 

0. 

. 3563  1496  + 0 2 
-.31491336+02 

0. 

0. 

0. 

. 53932  365  +0  2 
-. 431o0565  +0  2 

0. 

0. 

0. 

. 706525 06+0  2 
-.507o131l.  + 32 


-.  10  0 0 0006  + 0 1 
. 10  0 00  006+  0 1 
. l'OOOQOQt  + 31 
-.  100  0 0 006  + 0 1 
. 10  0 00  006  + 0 1 
-.  10U  000  06  + 0 1 
-. 13000006+01 
. 10  0000  06  + 01 
-.10000006+01 
. 10G00006  + 01 
-.  10  00  0006  + 01 
. 10  00  0006  + 0 1 
. 10033004+ J1 
-.  1 00  0 0006  + 0 1 
. lOOOOOOi  + Ol 
-. 10000006+01 
-.  10  0 0 0 006+  0 1 
. 10  U 00  00i  + 01 
-.  lJGOOOJc+Gl 
. 10  0 0 0 006  + 0 1 
-. 10000006+31 
. 10U  00  006  + 0 1 
. 100  0 0 006  + 0 1 
-.  lOCOOOOc  + Ol 
. 10  0 0 0006  + 0 1 
-.  10  0 0 0 005+  0 1 
-.  10  0 0 0006  + 0 1 
. lOOOOOOc+Jl 
-. 19000006+31 
. lOOGOOOc+Ol 
-.  10  0 0 3 006+  0 1 

. 1000000i+01 
.10000006+01 
-.  10  0 0 0 00^  + 01 
. 10  0 0 0006  + 0 1 
-.  13  0 0 0005+  0 1 
-.  190  0 0 006  + 01 
. 10  0 0 0005  + U1 
-.  10  0 0 0 006  + 0 1 
.10000006+01 
-.  IGOOOOOw  + Ol 
. 10  0 00006+0  1 
.10000005+01 
-. 10000004+01 
. lOOOOOOc+Ol 
-.  100  0 0 0 06  + 0 1 
-.  10  0 000  06  + 0 1 
. lOoQOOOc  + Ol 
-.  13  0 00  005  + 0 1 
. 13  0 0 0 005  + 0 1 


. 11110196+02 
-.  109020  5c. + 02 
-. 11110196+02 

• 54651576  + 0 1 
-.01623595+01 

. 113120Oc+O2 
. 12351434+02 
-. 10000004+02 
. 39905775+01 
-.47558596+01 
. 11684265+02 
-. 12351434+02 
-. 11684206+02 
. 4145903E  + 0 1 
-.4704 35 3c +01 
. 11312004+02 

• 15  06  44  35+02 
-.lJOaOOOc+02 

. 19570866+0  1 
-.21771016+01 
. l259267c+02 
-. 1506 44 36+02 
-. 12592676+02 
. 13  382485  + 0 1 
-.  14217315  + 0 1 
. 11312005+02 
. ld22775£+02 
-.  1 000  OOOc  + O 2 
-. 16027155+01 
. 244380b4+01 
. 13549535+02 
-. 182277 5-+02 
-. 13549835+02 
-.42423764+01 
. 50el862_+0 1 
. 11312004+02 
. 21966815+02 
-.  1 0 0 0 00  Oc+O  2 
-. 91579344+01 
. 12088 9o£+ 02 
. I456OI64+O2 
-.21966314+02 
-. 14560104+02 
-.  21373b0c  + 0 2 
. 21963905+02 
. 1131200l+02 
. 26449185+02 
-. 10000004+02 
-. 3ol4103t+O2 
. 41706336+02 


r 


i 


) 


i 

•» 

% 


-.3b?S741E+01 
. 3026528c+02 

*a&28?4t£*01 

. 52553-.15  + 03 

- . 1 Q 0 0 7 » 0 L + 0 3 

J. 

- • 33o2373t+0? 

0. 

• l4l3bl4_+0 5 

-.  1196739;-  + 0^ 
-.83olbb8*.+  01 
. 3362373^+0? 
. 33 .>16685  + 31 
. 323236bl+  02 
-. 6955  0 1 8E  + 02 
0. 

-.37309306+3? 

0. 

. 3?70531E+0? 
-.60336265+0? 
-.91 49 2336+31 
. 37309305+02 
.91-+9233t_*01 
. 2?3511o_+02 
3fcJ85o3w+02 
G. 

-•432005. 35+02 

0. 

. 22472335+02 
36b730o-+02 
-.94340935+31 
.43200535+02 
. 94340935+01 
. 1873  057E  + 02 
-.263323 3 c+02 
0. 

-.  50  36460w  + 0? 

0 . 

• 1 041321;.+  02 

- . 25394235+02 
- . 1 1509595+02 
. 5 0 364  fc  3 l + 0 2 


0 . 

0. 

0. 

.99349595+03 
-. 1 7010255+0 3 

0. 

0. 

0. 

. 21  86041E  +3  3 
-.  1:>29377l  + 05 

0. 

0. 

0. 

.33536105+02 
-.  773  + 4 S9t+02 

0. 

0. 

0. 

. 35O5544E  + 0 2 
-.5489248C  + 0 2 

0. 

0. 

0. 

. 20095065  + 0 2 
-.28336606+32 

0. 

0. 

0. 

.19973275+32 

-.20432275+32 

0. 

0. 

0. 

.14321435+32 
-.  1647  437c.  + 0 2 

0. 

0. 

0. 

. 1449560E  + 3 2 
-.16810505+32 

0. 

0. 


-. 1300000^+31 
. 10000006+01 
. 10000006+01 
.10000006+01 
.10000005+01 
-. 10000006+01 
-. 1000000^+01 
.10000006+01 
. 10000005+01 
. 11000005+01 
-. 10000005+01 
. 10000005+01 
. 10  0 0 0005  '01 
. 10000005+01 
-.10000005+01 
-.  10  00  0005  + 0 1 
-. 10000006+01 
. 10000005+01 
. 10000005+01 
-. 10000005+31 
-. 13000005+01 
. 1QGQ0UG5+Q1 
. lOOOOOOc+Ol 
. 10000006+01 
-. 10000005+01 
-. 10000006+01 
-.lHOOOOOz+Ol 
. lOOOOOOi+Ol 
. lOOOOOOci  + O 1 
-. 10000005+01 
-. 10000005+01 
. lOOOOQOc  + Ol 
. 13  0 0 0005  + 0 1 
. 10000005+01 
-. lJOOOOOE+Ol 
-. 1300000^+01 
-. 10000005+01 
. 10000006+01 
. io  ooaoot  + oi 
-. 1000000-+01 
-. 10000005+01 
. 1000000^+01 


. 15627obE+02 
-. 26449186+02 
-. 15627665+02 
-.7  43po4  7i_  + 03 
. l44doJ9n+03 
. 1131200u+02 
. 31929435+02 
-. 10000005+02 
-. 1332136^  + 0 3 

• 1586  493;.+  0 5 
. 16758065+02 

-. 31929435+02 
-. lb75806w+02 
-. 4703b47c+Q2 
. 9707b24c.  + 02 
. 1131200E+02 

• 3876  94  36+02 
-.10000005+02 
- • 46461405+0  2 

. 30150405+02 
. 17996175+02 
-.  387 b9485+  0 2 
-. 17956175+02 
-. 33931835+02 
. 50635235+02 
.11312005+02 
. 47567185+02 
-. 10000005+02 
-. 34011085+02 
. 50425715+02 
. 1922938L+02 
-. 4756713c+02 
-. 1922938E+02 
-. 29625o5t+02 
. 3363692t+02 
. 11312005  + 0 2 
. 5927177c+02 
-. 1000000^+02 
-.  2943  8106  + 0 2 
. 33216555  + 02 
.22367235+02 
-.59271775+02 


. 11609595+02 
. 1717696;;  + 02 
-. 21551145+02 

0. 

-.  58  07  3 U-+02 

0. 

. 1*1261  05+  01 
-. 23  338  3 35  + 0? 


0. 

. 11  84423E  +3  2 
-,llb9q4lt_+02 

0. 

0. 

0. 

. 1629346l+02 
-,95Q9  536l+0  1 


. IOOOOOOl+JI 
. 10000005+31 
-. IOCOOOOl+31 
-. 10000005+31 
-. 10000005+31 
. 1 1 0 0 0 005+  0 1 
. 11000005+01 
-.  10  00  3 0 0_  + 01 


-.  22  3b  72  3c  + 0 2 
-. 2313967c+02 
. 33397705+02 
. 11312005+02 
. 71869025+02 
-. 1 J 000005+02 
-. 1178196L+02 
. 4059870t  + 0 2 
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- 

. 3376222^40? 

0 . 

* • 

10000006+01 

.5807 38 0_ 40? 

-0. 

• 

1000000^+01 

. 337 62226+02 

-0. 

• 

lQOOOOQc+Dl 

. 3271563^401 

.1554944E+02  . 

10000006+01 

- 

.2910072c+02 

-.e243904£+Ql 

lOGOOGUE+Ol 

0 

• 

0. 

®*  • 

10000006+01 

11. 31200 

-.06794 

.38100 

.33  10  0 

-. 05367 

.41970 

. 36277 

-.  04237 

. 43489 

. 37  32  7 

-.03107 

. 450  31 

. 33316 

-.01976 

.46498 

. 39  251 

- • 0D  8 46 

. 47695 

.40134 

. 04805 

.53916 

. 43879 

. 10456 

.5  35  36 

. 46 o3  3 

. 16108 

.61952 

.48702 

. 21759 

. 64298 

. 50G30 

. 27410 

• 6566  8 

• F 3 7 1 6 

. 33061 

.66127 

. 50792 

. 3871  3 

. 657  19 

. 50255 

. 44364 

. 6447? 

. 49  0 8 6 

.50015 

. 62397 

• 4 7 ?5  0 

. 55666 

. 59494 

• 4 ■»  6 7 3 

. ol313 

.55747 

.41271 

.66969 

.51126 

. 3 3 97  2 

. 72620 

• 4 5534 

. 31 791 

. 78271 

. 39049 

.25832 

. 83923 

. 314  04 

. 19219 

. 99574 

.22602 

. 120*9 

.95225 

. 13365 

. 0 4 3 9 6 

1. 00876 

.03133 

.0366  0 

1.04267 

. 0 3291 

.03715 

1.  0539  7 

• 0 o47  3 

.10423 

1.  05902 

. 09059 

. 09059 

0 

• i 

0. 

• 

10000006+01 

. 179720  964  32 

.3619991 

c+02  -. 

10000006+01 

. 15412266+0 2 

-.44529446+01  . 

10000006+01 

- 

. 1622  79 1L+  02 

0 . 

* • 

lOOOOOOc+Ol 

.16227916+0? 

-0. 

• 

13000006+01 

. 222462oc+32 

.40724036+02  -. 

1000000E+01 

.15358836+02 

-.47447516+01  . 

10  0 00  006  + 0 1 

0 

• 

0. 

* • 

10000006+31 

- 

• 20  46440c  + 0 2 

0. 

* • 

10000006+01 

0 

• 

0. 

• 

13000006+01 

- 

• 9 lb667  4 £ + 0 1 

. 1 0 7722  7 

c+02  -. 

10000006+31 

. 11315 31c+02 

- . So  024o2l  + 0 1 

10000006+01 

- 

. 15131966+02 

0. 

* • 

10000006+01 

• 204644t>c  + 02 

-0. 

• 

10000006+01 

. 16131966+02 

-0. 

• 

10000006+91 

- 

. 33095366+01 

. 1232002 

£ + 02 

10000006+01 

• 4 u 514366+02 
-.71669026+02 
- • 4o5l46bc+0  2 
-.13368036+02 
. 41332986+02 
. 113120Jc+Q2 


-. 11312006+02 
- • 1 43  S a63  6+  0 1 
-.  6722441E+0  1 
• 1 0624426+  0 2 
10624^2^402 
29464366+0  l 
-. 65978U2c+Ql 
. 1262500E+0  2 

• 1 0 44  49  26+  0 2 

1131200c+02 
. 69026426+0  1 
-•7134935c+01 
. 1101299c+02 
-. 1044492E+02 
-. 1101 2996+02 
. t>312  070_  + 0 l 
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. 11095514+02 

0 . 

-.20742501+02 

G . 

-.83685094+  Jl 
.10472304+02 
-. 100l4**i+ 02 

• 20742501+02- 
. 10014-91+02- 
- • 30155314+01 
. 10 50 37-E+02 

0. 

-.2163097E+0? 

3. 

-.6332717  4 + 0 1 
. 85503961+31 
76577041+01 
. 21630974+02- 
. 75577041+01- 
-•bb7469-i+.  01 
. 86251021+01 
0 . 

-.23208-01+02 

0. 

- .4301b75l  + 0 1 
. 5 2 3 4 o 4 2 £ ♦ 0 1 
-.77»0885E+Ot 
. ?3?8640c.  + 02- 
. 77b08864+01- 
2871 3751+31 
. 4968  7^t  c.  + 0 1 
J • 

-. 2522b7-l+  12 

0. 

• Ib0l9  07  E + Q l 
.96  53-?3_-01 

-.  7953719b*  31 
. 25225741+02- 
. 795371  91  + 01- 
. 1G  73708b*  33 
-. 15676771+01 
0. 

-.27508984+02 

0 . 

. 3412729b*  O'7 
-.  10350  091+0? 

- • 6 lo79o  *4  + 0 1 

• 2 75  0 3 bO  _ + 02 
,81679631+01- 
•6^964-14+32 


-. 6992112  r.  + 0 1 

0. 

0. 

0. 

. 12261641+32 
- . ° 5 7 3 01 8 i ♦ 3 1 

0. 

0 . 

0 . 

.14891126+32 
- . 1 0 2 3 0 5 3 u ♦ 0 2 

0. 

0. 

0. 

.16130371+02 

-.12U2652L+G2 

0. 

0 . 

0 . 

.21101171+0 2 
-.12931591+32 

0. 

0. 

0. 

. 24116281+02 
-.15921471+32 

0. 

0 • 

0 • 

. 3411079E+J2 
-.17605211+32 

0. 

0 . 

0 V 

. -1059611 +02 
-.  218  37694+0 2 

0. 

Q. 

0. 

• 79b-575t+02 
-. 2647006E+02 

3. 

0. 

0 . 

. 128  35501+0  3 
34192031+02 

0 . 

0. 

0. 

. 1 3 75  3591  + ] 3 


. 10030001+01 
--  10J0000c_+Jl 
-. 1000000^+31 
. 13000001+01 
-.10000001+01 
. 1000QQQS+01 
-.13000001+01 
. 10  OOOOQE  + O 1 
. I000000b+01 
-.  1 0 0 0 00  0b  + 01 

. 13  0 0 0 001  + 01 
-.  13  0 0 0 0 01+  3 1 
-. 13000001+01 
. 10000001+01 
-.  10  03300^  + 01 
. 100 30001+01 
-. 10000004+01 
.10000001+01 
. 10C00QQE  + J1 
-. 10000001+01 
. lUuOOOOl+Ql 
-.  100  0 0001+  0 1 
-. 10000U01+31 
. 13000001+01 
-.  13  3 0 0 001  + 0 1 
. 13000001+01 
-.10003031+01 
. 10  0 0 3 001  + 0 1 
. 1GQQQQQE+U1 
-. lOOOOOOc+Ol 
. 10  C 00001  + 3 1 
-. 13000001+01 
-. 10000001+01 
. 10000001+31 
10000001+01 
.10030001+01 
-. 10000001+01 
. 10000001+01 
. 10030001+01 
-. 13000001+31 
. 10  0 03  0 31  + 0 1 

-. 1000000b+01 
-. 10000001+01 
. 1C  00  0 001  + 0 1 
-. 13000001+01 
. 10000001+01 
-.10000001+01 
. 130000 0- +01 
.130000 Ol +01 
. 13000001+01 
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. 6 .>1  1 6301  + 0 1 
. 12b25QQ!+02 
. 13902131+02 
. 11312004+02 
. 6333823E  + 0 1 

• o65  3 8 36  4+  0 1 
.11793204+02 
. 10932131+02 
. 1 17  93201+  0 2 
. 5 1630  7 11+0  1 
. o30  0 7861  + 0 1 
. 1262500b+02 
. 1235137&+02 
.1131200^+02 

• 4564999b+  0 1 
. :>23362  71+0  1 
. 12529401+02 
. 1235137-+02 
. 1252  94 Qv+O  2 
. 21104701  + 0 1 

• -66  9 95  14  + 0 1 
. 12625001+02 
. 15063301+0  2 
. 11312001+02 
. 2b02749!  + 0 0 
. 22915591+01 
. 13436521+02 
. 15063301+02 

• 1 343  65  21+02 
. 52011274+01 
. 11129511+01 
. 12625J01+02 
. 1 82  2 63  8 4 + 0 2 
. 1 131 20 Q £+02 

. 99736244+01 
. 30014981+01 
. 14391121+02 
. 13226381+02 
. 14391124+02 
. 32670624+02 

• bb9075  31+0  1 
. 12625001+02 
. 2196152-+02 
. 11312004+02 
• 6o40448!+02 
. lb  049361  + 02 
.15397211+02 
.21961524+02 
. 15397211+02 
. 13491541+0  3 


-.20253704+ 0? 

0. 

30253+bE+O? 

3. 

.50449074+0° 
-.496E3“Gc+02 
-.  83935314+31 
. 302534oE+02- 
•8393531E+01- 
. 2 5 325Qlc  + G2 
-.71511552+03 
3. 

3359775E+02 

0. 

. 26731+02+02 
. 12303432+13 
.8632+792+01 
. 3359775t+02- 
.3b32+°9E+01- 
.2118150^+0? 
.4781464E+02 
» 

.37764174+02 

• 

. 22550654+02 
, 4562  4652  + 02 
. 88943292+01 
i 37  73417  6402* 
, 8334829' + 01- 
. 205412  74  + 02 
.3299550-40? 

3 1482 IE  432 

» 

.2160737.40? 

. 3+122324+0? 
.91530152+01 
. 43 143  2 1 £♦ 3 2 • 
. 9 1530 152+  0 t- 
. 2070385E432 
. 295426 6 E+O? 

*• 

.5  0 3065 1£  4 02 

.21637524+0? 

. 2 93496-.  4 + 03 

• 11 ?5 0+94+32 
.50306514+02- 

• 11 2o 9 + 52  + 0?- 

. ? 1 ° 1 1 i 6 i ♦ "V 


-.53351954432 

0. 

0. 
o . 

• 9C  36954L  + 0 4 
P 4404J5E 43  2 

0. 

0. 

0.  ’ 

. 39  39651443  2 
-.  It)  2’’ 6354+0- 

U . 

0 . 

0. 

• 31S6  901E  + 02 
-•  142  3c,  35E  +0  3 

0. 

-0  . 

0. 

.22  0966  ?E  +3  2 
- • 467  2369E  +0 2 

0. 

0. 

0. 

. 2027442E+32 
-.  36  522344+02 

0. 

0. 

0. 

.17293  -E+J2 
-. 23967954+32 

3. 

3 . 

0. 

.16477-4t+32 

-.21307932+12 

0. 

G. 

0. 

. 1529 l++t  +0  2 
-. 165+o36t+02 

0. 

0. 

G. 

. 1435108E+0  2 
-. 1593291E+02 

0. 

0 . 

0. 

.14  59  0275  + 32 


. 10000102+01 
-.  10  00  OOOE+Ol 
lOOOOOOu  + Ol 
. lOOOOOOE+Ol 
• 13  00000E  + 01 
< 10003304+01 
-.1300000 -_  + 01 

. 10  000004  + 01 

. lOOOOOOc  + Ol 
. 10GQ  1002  + 01 
luUGOO 02+01 
IIOOOOO4  + OI 
-.  10U000  04  + 01 
. 130000  OE + 01 
. lOCOOOOE  + Ol 
-.  1000000E  + 01 
-.  1000000E+01 
. 10000004  + 01 
. 1000000E  + 01 
.1300 OOOE+Ol 
-.  10  0000  OE  + 01 
-.  100  0 0004  + 01 
-.  10  0030  OE +01 
. 10  0 0 0 00E  + 01 
. 100000 OE + 01 
-.  100000  0£ + 01 
-.  1300  0004+01 
. 1300 JGG2+01 
. 10  0 0 0004+  01 
. 1000000E+01 
-.  100000  OE + 01 
-.  100  00  00E  + 01 

-.  laooooo.  + oi 

. 10  000  J0-  + 01 
.1000 OOOE+Ol 
1U00G002+01 
100  OOOOE  +01 
. 1000000E+01 
. 10  000  00E+01 
. 10+00002+01 
10000004+01 
-.  10  0 0 0 00E  + 01 
-.  100 JOOOE  + 3 l 
.10000035+31 
. 10  0 0 Q00E  + 01 
-.  10  0 0 000E  + 01 

-.  noooooi  + ji 

. 10  030004  + 0 1 
. 1300000E+01 
. 100000 OE + 01 


. 3211034E+02 
. 1262500^+02 
.26443274+02 
1131200E+02 
-. 31605712+02 
. 6619043. + 0 2 
. 16458752+02 
■.  2o44327E+02 
16458764  + 02 
-.  42687412+0  2 
. 1022627E+04 
•1262500.+02 
. 31913474+02 
■. 11 312002+0 2 
4085582E  + 0 2 
. 1-j91946l  + u 3 
. 17530912  + 02 
-.  31913472+02 
•,  1758  091E  + 0 2 
■.  33718744+02 
. 97333522+02 
. 126250  0. + 0 2 
. 38750872+02 
■.  1131200E  + 0 2 

■ • 3 + 133724  + 02 
, 610929 7 £+02 
. 18768+12+02 

•.  36750374  + 0 2 
•.  1976  6+12+02 
318  7 446E+  0 2 
. +65+4092+02 
. 12o260  02  + 0 2 
. +7a?327 E+02 
•.  11312004+02 
■. 3261277E+02 
. +0652774+02 
. 2002796E+02 
-.  +7523274  + 0 2 
200279oE+02 

■ • 31699312+02 
. +0703174+02 
. 12b25004  + Q 2 
. 5921639.+02 

■.  11  3120  04+0  2 
■. 3247+252+02 
.+13995+:+02 
.2306129E+02 
■.  59216392  + 02 
-.23001294+02 
32179344+02 


The  FORMATS  for  the  data  inputs  are  listed  at  thn  on+  cnnn«,, 


.26330  336+02 

.6799+7  0_  + J? 

• 

i4437s03b*01 
.34;?9843E  + J2 
. 3367530E+02 
,5799470+  + 02- 

• 3Jb753Gt+U2- 
.57  62  65  0E+-01 

• 3455 1 9 bE  + 02 

• 

12.62500 


1 3?7?d9F+0 2 -. 

0. 

0. 

0. 

.20949301+32  ■ 

-.93G7237  + +1  1 -. 

0. 

0. 

0. 

. 199372 3 F + u 2 . 

-. 931 3b26t  +11  -. 

0 . 


-.12326 

. 4 + 971  . 

.++971 

-. 11325 

. 430  + tj 

.43195 

-.  10b;  3 • 

.60393 

• - + 0 5 o 

-.09+79 

.51374 

. ++  87  0 

-.08306 

. 53239 

. 45b39 

-.0713? 

• p 4 6 4 2 

• 46  36  7 

-.01265 

< 6 0 5 1 3 

• +9+29 

• J + 6 0 3 

• o50  42 

.51652 

.10+70 

.63345 

. b 3141 

. 1633o 

. 70626 

.53957 

. 22205 

• 7 1 4 9 7 

• 5 + 129 

. 280  7 3 

.7  1<90 

• 53  o64 

. 33940 

. 709o2 

’ .525+r 

.39308 

.69197 

. 50  7 37 

• +567p 

. 6b; 0 6 

.431b9 

.51543 

.62690 

.4+75 7 

. 97410 

. 53339 

. 40+29 

. o3Z7 3 

.52631 

. 35202 

.691-5 

. 4o3  3 0 

. 29 130 

. 75013 

. 33736 

. 22+92 

. 30330 

. 30175 

.192+1 

. 367  - 8 

.20 ;27 

• 0 7 5 0 6 

.92  615 

.09932 

- . 00+53 

. 93483 

- . 01493 

-.0920b 

1.  020  0 3 

- . 0 3 o9  2 

— . 1 + 5 3 o 

1.03177 

-.11143 

- . 1 3 3 0 0 

1.  037  °2 

- . 1+995 

- . 1+995 

, 1154++3++02 
,1351b53E+02 
, 1573536E«-02 
, 1573b36E+0f 
>11  b6 3 6b £+02 
, 1 3 097  1 9+  + 02 

>20‘»67o't  + 0.‘> 


0. 

. 21133 3 3E 
+ 17572  + 1- 


Id  0 0 0 0 OE.+  0 1 
ICC  0 0 0 3b  ♦ 3 1 
100000  0E-MU 
1 0 Q 0 0 0 0 £ + 0 1 
10 00G0J_+01 
1JC0  000L  + 0 1 
1000000 E +01 
lJOOQOOb+Ql 
ldOQ'JOOE+Ol 
10  CO 000++01 
1000000E+01 
100000 0£ +01 


♦ 0 2 

+ 0 1 


.2122566E+02 
-.+965503E+0  1 . 

0. 

0 • • • 

o. 


nooooow 

10000 J0£ 
10  0 0 3 00£ 
10000002 
1000000  £ 
1000000E 

1000000  c 

10 Ou 000b 
1000000. 
10000002 


. 3i329ol£+02 
. 1267500L+02 
. 7 178133E+02 
■,  1 131200l.  + 02 
• . 1+032106+02 
. +70b399t+02 
• + b97  + -)2E+02 
•.  7 17  3 1 33b  + 0 2 
■.4o97462l  + 02 
15593535  + 02 
. 4705950. +02 
. l?62500b+G2 


•.  12b 25  0 J E + 
. +54+333_< 
908077  + t^ 

• 109+3bb£H 
•.  10948b6E'» 

• + ij  1 o 35  3 £ ■< 
•.  6727  4 30E< 

. 1 397300b< 

• 1 0 4 + +5  8 

•.  126250  0b< 


-.030961 82  + 01 
.9 29 10 36 i+Gl 
- . 1*.  995  16E+  02 
•20427651+Q2- 
. l496516i+02- 
-. 43227072+01 
.86263792+01 
0. 

-.20746772+02 

0 . 

-.56768711+01 
•9b303+0E+01 
- .9820494E+01 
. 2074577E+02- 
•9620+942+01- 

-«4l48455i+01 
.940617 12  + 01 

0. 

-. 21o3454_+ J2 

0. 

-.4  + 799  ?'?i  + 01 
. 72 465  96 _ + 0 1 
-.7374747i+01 
.21  o34  s + 1 + 02  - 
. 7374 7- 7i+ 01- 
-.2797619^+01 

• 7200^031  + 01 
0 . 

-. 23292532+02 

0. 

- . 19 j22+42+  0 1 

• *+&  1 8 8 9 5 £ * 0 1 
-.  75591+02+01 

. 2329253i+02- 
. 7558  1 **  0 _ + 0 1- 
. 29  391  + 2i  + 0 1 
. 34042722+01 
0. 

-. 2523059E+32 

0. 

• bo  75  9 ^ 9i  + 0 1 
- . 16  8944  D E ♦ 0 1 
-.  7751  343w  + 0 1 

.25230592+02- 

.77513431+01- 
. 83  31  21  o£  + 02 
-.94389261+01 

0 . 

-.2751+671+02 

0 . 


. 9353333(_  + 0 1 
. 752  j719i  + 0 1 


. 1 1494151  +0  2 
• 6+  06-}45fc+01 


. 10  5 + f40i  +0  2 
.6  + 056  36  _ +0  1 


. 1 + 4 3c54i +0  2 
•99891^91+01 


. l+l.j?o4E+J2 
.1086+806+02 


. 2239  384c.  +0  2 
.14096056+02 


. 2 3 30  6621  +02 
• I63ooo62+)  2 


.43720641+02 
. 23126571 +02 


. 49520142+0  2 
.23526146+32 


.31256846+33 

.519+1846+02 


j • 


-. lGCOOOOE+Ol 

. ioooooo  + oi 

-. 100000U_+ul 
. lOOOOQOE+Ol 
. lLOOOOOi +01 
-. 100000 Oi+ul 
. 1100000E+01 
-. 10000002+01 
10  0 0 0002  + 0 1 
.10000006+01 
-.10000001+31 
. 10  00  0 00..  + 0 1 
-.  1GQ0  0 0 0 c + 0 1 
. 10003002+01 

. nnooooE+oi 

-.  1J  00  0 002  + J 1 
. lOOOOOOi+Ol 
-.  1J  0 0 0 0 0Z+  0 1 

-.1000000t+01 
. 10000002+01 
-. 100000 Oi +01 
. 10000002+01 
-. 10000002+01 
. lOOOOOOi+Ol 
. 10000002+01 
- . 1 9 0 0 0 0 0 t + 0 1 
. 1 0 0 0 0 0 3 * ■ - i 
- . lOOOOOOi+Ol 
10000  0 02  + 01 
. 10000002+01 
-. 13000002+01 
. 10000002+01 
-.  lOOOOOOi  + Ol 
.10000002+01 
. 1 0 0 0 0 0 0 1 + J 1 
-. 10000002+01 
. 100000 Oi +01 
-.10  00000  '.  + 01 
-. 10000002+01 
. 1J000002+01 
-.  lOOOOOOi  + Ol 
.10000002+01 
-.  lQu00002  + 0 1 
. 1 0 0 0 0 0 0 _+  3 1 
. IOOOOOOl+31 
-. 10000002+01 
.10000002+ 01 
-.  100000 Ot  + 01 
-.10000002+01 
. 10  000002  + 01 


. 78322391+01 
-.  7 9+077+2+01 
. 1 1380332+  0 7 
-.  1 0 4 + 43  8i+  3 2 
1138033i+02 
. 7G2Q1+1-+Q1 
-. 7 + 276lOi  + Q 1 
.13938002+02 
. 1093  19oE+02 
-. 12625002+02 
. 7 3402061  + 0 1 
-•7+2974oE+0l 
. 1 250  077i+0  2 
-. 1090196i+02 
12500772+02 
. 3+3o633E+  0 1 

- • 6 + 7 3 + 1 7i  + 0 1 
.13939302+02 
. I 235  132i  + 0 2 

-.  1 26250  0 2+  0 2 
,5567777i+01 
-.  5 3531701  + 01 
. 1 33971  + 2 + 0 2 

-.123513?* 

— . 13 3 971**  . *02 
.10176001+01 

-•  374579  + ..  + 0 1 
. 1 393800i+02 
. 15063731+02 
-.  1262500  2 + 0 2 
• *‘+507942  + 00 
-. 19239501+01 
. 1 + 303261  + 0 2 
-.  1506373i  + 0 2 
-.  1430  32  9_+  0 2 
-.11693162+02 
. 31922962+01 
.13939002+02 
. 1.9227+5i+02 
-.  126250  02+  0 2 
-. 1^662121+02 
.01911202+01 
. 15255912+02 
-. 18227+31+02 
-. 15255911+02 
-. 1 7999652+03 
. 274375+2+02 
. 1 3538001+  0 2 
.21963+81+02 
-.12  o2  5001-  +0  2 


144 


Ik  w r 


+■  ’ 


. 55475 I04  + 03 

- • 

795 1*291  c + 01 
. 27pl 4o7£  + 0?- 
. T9:>4201£  + 0t- 
. 309820  oc  + 0? 

-.253204.4*0  s 

0. 

-.30260436+02 

a. 

. 30793c-?£  + 02 
-.794 9.7 16*02 
-•  8163471c*  01 
. 3 0 260  4 3£  + 0 ?■ 
•3l48471c+Jl‘ 
. 22826294+02 
-.384727.4*0? 
0. 

336Q6  3.>4  + 02 

0. 

. 24282  7 7;tJ2 
3725^3  3c  + 32 
-. 33940  t'7_  + 0l 
. 3360o35£+32- 

• 33943d7  £ *01  ■ 
. 22440 16c* 02 

30  160  o7c ♦ 02 

0 . 

-,37795  0 5c*  02 

0. 

. 2396263c*  0 2 

- » 31  .43  1 1 c * 32 

- .36  3304  6c* 11 

. 37T9505c+32- 
•3633046c*01- 
. 2404592c*  02 

- . 293044 lc*02 
0 . 

.31o2 396+02 

0. 

. 2 6 4 c»  — n 3 £ + 02 
3U  7326c*02 
-.8985430 t *01 
,4  316?  $ 1 c + 0 2 * 
. 338E430_* 31- 

• 2 b 5 7 5 3 8 6 + 3'’ 
314534 0c*0? 

0. 

-.  50  325  10=:  *02 

0. 


.14869336*04 

-.3294472E+02 

0. 

0. 

0 . 

. o262237fc*02 
-. 51co.70l*0  3 

0. 

0 . 

0. 

.4669^174+02 
-.11479914+0 3 

0. 

0. 

0. 

•?993247c+02 
-. 4350252C+02 

0. 

0. 

0. 

.25 33 13 7c *02 
-.  36.0-*?7t  +0  2 

0 . 

J • 

0. 

. 2239.1 5r+3  2 
-.  27435306  *02 

0 . 

0. 

0. 

. 20  1 7 372t  *02 
-.226.D80L+02 

0. 

0. 

0 . 

. 2023  3331*3  2 
-.2077909c*] 2 

0. 

0. 

0. 

. 1373825E+J  2 
-.  1 3 0 7 4 ? 4 1 *02 

0 . 

0 . 

0 . 

.20059 33c *02 
-.  1 329732=  *0  2 

0. 

0 . 

0. 


. 10  0 0 0006*01 
. 10C0'J00£*01 
■.  100  J 0 00£*0  1 
. 1 0 0 0 000£*01 
. 1J0GUQ0£*J1 
. 10  000005*01 
■.  lGCOOOOc+Ol 
-.  10C0  0 0 0£*Q1 
-.  110  0 0 00c*01 
. Ij GO  0006  + 3 1 
. 100  0 0004*  0 1 

-.  10  00  000c*01 

-.  101QOG0£*Ql 
. 1UC300GE+01 
. 1 ]OUOOJ£*Q1 
.10000004*01 
•.  10C  0 00  0£*01 

•.  l)G3G0Gc+0L 

-.100030  0E  + 01 
. lOGOOOOc  + Ol 
. 1000000£*J1 
-.  10G000  0c  + 01 
-.  130000  0.6  + 31 
. 1300000£*01 
. 1 ; 0 3 3 0 0£*31 
. 1 3 00  0 0 0c*0  1 
-.  100  0 3006*  0 1 
1 1 0 0 30  06*0  1 
-.  lOOOOGOI  + Ol 
. 1J  0000  06*01 
. 1 JG00O0c*01 
-.  10G000G_  + 31 
■.130000  06*01 
. 10  0 0 0 006*0  1 
. iooooooe*oi 
. 10  00000-  + 0 1 
-.  1 JGOOOQE+Ol 
-.  1 1 0 0 00  06  + 01 
-.  100Q003E+31 
. 10000004+01 
. 1000Q00E+01 
100000  0£ + 01 
-.  lirooooc  + oi 
. 11  0 0 0006  + 3 1 
. 13  00330_+0  1 
. 1 J 0 0 ] 0 1 £ + 0 1 
-.  lOOOOOuc+Ol 
-.  100000  0c + 31 
-.  11  0 0 0006  + 0 1 
. 1 ifO  3 00c  + 01 


-.  93227254  + 0 3 
. 5692  33  7 c+  0 2 
. lo25oQ3t+02 
-. 21963434+02 
-. 16253086+02 
-. jo940364+02 
. -.7121234  + 0 3 
. 1 393300 £+02 
. 264.6454  + 0 2 
-.  12625006  + 0 2 
-. 4 41  9432c  + 02 
. 125.6526+03 
. 17 314?  2c*0  2 
-. 2o4.o45£+  0 2 
-.  173145  26  + 0 2 
-. J7b7572£+02 
. b300303£+02 
. 13933006+02 
. 31913404+02 
12b250  0£  + 0 2 
-. 3ob07lo£*G2 
• p5256.24+02 
. 13.2903-+0  2 
-. 31913406+02 
-. 13429036+02 
-. 34675366+02 
. 4bl 3 9b 46+02 
. 13938006+0  2 
. 3875639c +32 
12625006+02 
35030366+02 
. .494d9dc+Q2 
. 1 960  741c  + 02 
-. 3a756394+Q2 
-.  19607416+02 
-. 3p1o472£+0  2 

• 4 26  61526  + 02 
. 1393tt00c.+  02 

• 475347  4c  + 0 2 
-. 1262530c+0? 
-. 3b 07 65 26+ 02 

. 4329533c+02 
. 23854246+02 
-.  475347  46  + 0 2 
-.20854244+02 
-.  371 J 635w  + 02 
. 4357  26b£+  0 2 
. 1393800E+02 

• 59234244  + 02 
-.  12625006  + 0 2 


145 


-4. 


. - < 


— — — ; 


. 279175  72  + 02 

-.  33110'*  3:1  + 02  ■ 
-.  1094  + + 0_+ O'*  i 
. 50  3253 0 £ ♦ 3 ^ ( 
. 10944+0E + 02-I 
. 29*1*37?  - + 02 
-.  3396201:1  + 32  ■ 
0.  ( 

-.58020332+02  ( 
0 . 1 

. 99807212+01 
- • + 2 24 1 ++ E + 02  ■ 
-.33139832+02  ( 


1 892o21b  +0  2 
1 o 69  0 + 3 (•  + 02 


20b',5  00  L + 32 
l73+fc53E+Q2 


. 3+67739c+3  2 
. 1 1 33b  56t.  +0  2 


.5802033  +02 

- 

0. 

. 33139332+02 

- 

0. 

. 11164052+32 

. 32905 

53L  +0  2 

.42674232+02 

-.11927 

7 9 E + j 2 - 

• 

0. 

- 

13.93300 

- . 18997 

5 + 82  7 

.5+327 

-.  18235 

5 8 > 7 7 

. 53267 

- . I7  0c,6 

59915 

. o 3 7 o 7 

-. 15352 

o 1 1 9 3 

. 5+239 

-.14635 

02411 

. 5 + 632 

-. 13+18 

b35  7 2 

. 55  093 

-.07334 

63?  55 

. 6 o 7 3 0 

-.01220. 

72256 

.57037 

■ 04  6 3 3 

7+777 

. 53  3J0 

.10917 

76194 

.=3132 

.17001 

76568 

. '+32 

. 230  3 4 

7 8 944 

.=  = 179 

. 2916o 

7 + 357 

.5+233 

. 35252 

71632 

.51606 

. -.1336 

b33  3 2 

.+  = 219 

.+7419 

6+016 

.+  + 015 

. 535  0 3 

3 37  3 1 

.3=991 

. 5953? 

5252  0 

.33219 

.65671 

+ 53  64 

. 25  7 9 3 

. 717=4 

37243 

. 1 9 o 2 + 

,7783o 

23158 

.1237+ 

.33922 

13138 

. 0+501 

. 90  0 0b 

372  + 1 

- . 0 3 7 4 7 

. 96  0 o9 

0 + 453 

-.  123  36 

.99740 

11678 

-.  1 7 O 4 1 

1 , 00956 

1+3  39 

-.19+54 

1 . 0 1 5 3 5 

13250 

-. 18250 

• 

0. 

10000002+01 
10000032+01 
lOOOOOOc+Ol 
10  00  0 03^  + 0 1 
lQOOOOOE+Ol 
10  OOOOQE  + Ol 
130  0000“ +01 
10000302+01 
10000002+01 
10000002+01 
hoodool  + oi 

13000002+01 

iouoooo_+oi 

13000002+01 
1 JU  00  002  + 0 1 
13000002+01 

10  00  000i  + 0 1 
10000002+01 


•.  38356322  + 0 2 

• 4 + 94  8 2 1 i + 0 2 
. 23  7 3 86  2i+  0 2 

■•  = 92  342+0+  0 2 
■•  237J8o2E  + 02 
■•  39b6b21cl  + 02 
. 45779912+02 
. 1 59380Qe.+  02 
. 71807+72+02 
1262s00£+02 
■•  1777533=+02 
. 5 + 7223 4c. + 02 
• 469 9 156  o + 0 2 
■•  7 1807472  + 0 2 
46991obE  + 02 
192681  o^  + 02 

• 5 5 090  + 62+02 
. 1 39330  0t.+  02 


. 10  38  1 35-  + 02 
. 1208853- +02 
150251  92+  32 


.18392102+02 
4d8 3112u+0 1 . 

0. 


10000002+01 
1000000_+01 
1JC00002+01 
10000002+ 31 


. 16025194+02- 
.15965074+02 
. 1119686t+  32 

0. 

- . 20  -»Oh  5 1 z.  + 0 2 

0. 

3932813E+01 
. 8 2 ? P b o 3 6 + 0 1. 

- • 1 4834924+  02 
. 20tc483>  *02- 
.14834924+32- 
-.28250264+00 
•6836732-+01 
0 . 

207463t>6  + 0? 

0. 

-.34001174+01 
•76673536*01 
- • 9 629  3 5 8 - + 01 
.20746364+32- 
. 96293 58  4 + 0 1- 
. 58514966+00 
.7018807c+01 
0. 

-.2163232-+  02 

0. 

-.21279026+01 
. 644352  7£  + 3 1 
-. 7196139£+01 
. 21b 32326+02- 
.71961396+01- 
.57302192+01 
.60923576+31 
0. 

- • 23295-»5c+  02 

0 . 

. 26060822+01 
. 31803916+01 
-.7370 7 37- +01 
. 23296462+02- 
. 73  7C  7.874  + 3 1- 
• 23659836*0 3 
. 8 2030  164*03 
0. 

-. 25230776+02 

0. 

. 230049^4+0  ? 
-.847642b  £ + 91 
-.  75546  r 74+31 

. 25230776*32- 


0. 

.2  304411c  +32 
- • 6 1 30  9 7 5t  + 3 1 

0. 

0. 

0. 

• 1J457‘*8l  + 3 2 
-.  S 0 1 5139; +0  1 

0. 

0. 

0. 

.13958984+32 

-.96893566+01 

0. 

0. 

0. 

.11832346+02 
-. 91112216  + 01 

0. 

0. 

0. 

.19402296+02 

-.12172966+02 

0 . 

0. 

0 . 

. 1703301L +02 
-.  12600191 +0  2 

0. 

0. 

0. 

.43442096+02 
-. 18479476  +3  2 

0. 

0. 

0. 

. 3376b26£+3  2 
-.  2160  7486+32 

0 . 

0 . 

0. 

.09068976 +03 
-.  3377712c  + 3 2 

0. 

0. 

U. 

. 8630935  £ + 0 3 
-.  4-j639t66+3  2 

0 . 

0 . 


. 10000006+01 
-. 19 000006*01 
. 1 luOOOOo  + Ol 
-. lUGOOOOE+Ol 

100000 Ot *01 
. IUCOOGO4+OI 
-. 100000J-+01 
. 10000006+01 
-. 1000 3 006*01 
. 1 J00300-+Q1 
. 1000000- +01 
-. 10G0Q00-+01 
. 10b0000_+01 
-..lUGOOOOE  + Ol 
-.  100  0000-  + 0 1 
. 1 J003006+01 
-. 1000000-+01 
. 1J  000004+01 
-.  1000000E+01 
. 11000036+0  1 
.lOCOOOOc+Ol 
-. 10000006+01 
. 1000000E+01 
-. IOOO JOO4+OI 
-.  100030 0£ + 01 
. 10003006+01 
-.  10  0 0 0 00E  + 01 
. 1 0 0 0 0 001+  0 1 
-. lJQOOOOE+Ol 
. 100U000E+01 
. 10000006+01 
-. 1^000004+01 
. 1000000E+31 
-.  IOC  0 0006+  31 
-. 1300000E+01 
. 10000006+01 
-. 13000006+01 
. 1000000E+31 
-. 10000006+01 
. 13C0000E+01 
.10003006+31 
. 1COOOOO-+01 

.1000000-+01 

-. 1J 000006+01 
-.  10  0 0 00 0E+  0 1 
. 13000006+31 
. 1QU0003-+01 
. 10000006*01 
-. 1J00000-+01 
. 10000006+01 


• 1137  35U-+02 
. 42727916+01 
• 8 37 3678 4+01 
. 1p25000£+02 
• 104450du+02 
. 1 3938006+02 
. 764h0o96  + 0 1 
. 7733791-+01 
. 117o691d  + 0 2 

• 194-»506t+02 
. 117d691£+02 
. b2b362 1-+  0 l 
•b 88 99094+0  1 
. Ib25000-+02 
. 1099177E+02 
. 1 393800  E+0  2 
. b97t]  23  16+0  1 
. 7129479b+01 
. 1323175E+02 
. 10901774+02 
.15231786+02 
. 29b42936  + 0 1 
.51123484+01 
. 1525300E+02 
. 1 2 3b 149-+  Q 2 
. 13938006+02 
.41105954+01 
. 48273704+01 
. 14285794+02 
. 12351496+02 
. 14285796+02 

• 1 16b5o  84+0  2 

• -*1405304  + 0 0 
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APPENDIX  E 


Fitting  Equations  to  Planes 

The  important  concept  to  understand  here  is  that  quadrilaterals 
in  3-space  are  not  necessarily  planar,  even  though  all  four  sides  may 
be  straight.  For  a simple  proof,  crease  a sheet  of  paper  along  a 
diagonal.  Therefore,  we  represent  the  quadrilateral  surface  elements 
of  the  bodies  to  be  drawn  by  pairs  of  triangles,  which  must  be  planar 
(hence  the  wedge-shaped  blade  segments  used  by  DRACULA).  The  choice 
of  which  pair  of  triangles  to  use  to  represent  a quadrilateral  is  some- 
what arbitary;  there  may  be  objects  for  which  one  choice  is  more  con- 
venient than  the  other. 

Fitting  a plane  equation  to  a triangle  is  then  a simple  matter  of 
solving  the  three  simultaneous  equations  obtained  when  one  substitutes 
the  x,  y,  z coordinates  of  the  three  corners  into 

z = ax  + by  + d (E-l ) 

Special  cases  result  when  one  encounters  a plane  of  the  form  x = 
constant,  but  they  are  not  a great  difficulty. 

Having  decided  how  he  will  subdivide  his  object  into  segments, 
one  can  write  a computer  program  to  read  object  coordinates  and  create 
from  them  a data  file  like  that  in  Appendix  D. 
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APPENDIX  F 


Listings  for  the  Line-Against-Line  Algorithm 

The  operation  of  the  LXL  Algorithm  is  described  in  Section  4.3. 

The  program  listings  on  the  following  pages  were  written  in  CDC 
Fortran  Extended. 

Data  are  input  on  two  files.  From  the  first  file,  INPUT,  are 
read  the  plot  scale  and  offsets.  SCALE  is  the  size  of  the  picture  in 
plotter  units  and  XOFF  and  YOFF  are  the  location  coordinates  in  plotter 
units  of  the  lower  left  corner  of  the  picture  relative  to  the  plotter 
origin.  (Plotter  units  are  1/inch  for  CALCOMP  plotters  and  1024/ 
screen  width  for  TEKTRONIX  4010  series  graphics  terminals.) 

The  second  input  file,  TAPE4,  contains  the  point,  line,  and  polygon 
lists  which  describe  the  objects.  The  first  card  image  on  this  file  con- 
tains the  numbers  of  points  (NPTS),  lines  (NLINES),  and  polygons  (NPOLYS) 
in  the  picture.  Following  this  card  image  are  NPTS  card  images, 
each  containing  the  perspective  coordinates  of  a single  point.  (If  the 
z-axis  passes  through  the  viewpoint  and  lies  along  the  line  of  sight, 
the  perspective  coordinates  of  a point  [x,y,z]  in  the  scene  are  defined 
to  be  [x/z,  y/z,  z].)  Next  come  NLINES  card  images,  each  identifying 
a line  by  its  end  points.  For  example,  a line  from  point  #1  in  the 
point  list  to  point  *2  is  identified  by  (1,2).  The  polygon  data 
cards  are  last.  For  each  of  the  NPOLYS  polygons  there  is  a set  of 
data  card  images.  The  first  card  image  of  a set  defines  the  number  of 
edges  n of  the  polygon.  This  is  followed  by  n card  images,  each 
identifying  an  edge  from  the  line  list.  The  edges  must  be  identified 
in  sequence  around  the  polygon's  circumference. 
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The  FORMATS  for  the  data  inputs  are  listed  at  the  end  of  SUBROUTINE 
READINP. 

The  code,  as  listed  here,  uses  an  online  CALCOMP  Plotter.  However, 
relatively  minor  changes  in  HIDE  and  LINEDRW  permit  the  use  of  other 
plotters  and  graphics  terminals  (in  particular,  TEKTRONIC  4010  series 
terminal s ) . 

A small  sample  data  list  follows  the  program  listing.  (These 
data  describe  a 2"  cube  viewed  from  10"  on  a 30°  azimuth  and  50°  eleva- 
tion. 

For  a two-fold  decrease  in  execution  time,  the  subprograms  LINESX, 
NXTEDGE,  I CL  IP,  PUSH,  IWC0DE,  and  IANGLE  were  also  coded  in  CDC  COMPASS 
Assembly  Language.  The  COMPASS  listings  are  not  included  here  due  to 
their  length  and  computer  specificity.  Listings  are  available  from  the 
authors . 


3\jGRAM  LXL  ( IN-  J’  , ; JTPJT  , T AkEL,  TAPU-lNPUT  ,T  AP_6  = 
i OUTPUT, PlOT) 

L 1 N_  3 Y LlM-  ^Lj^RITh^  TOR  H I JOS N LINE  REMOVAL 
C 

c In i i ialize  plotter 

c 

CAi-L  PLOT  (0,  0,  0.  3 , -3) 

r_ao  input  data  - point,  line,  4 polygjn  lists 

C A _ w REAUINP 

INITIALIZE  LXl  TAGLS3 
CAt-L  IN  IT  I Au 

M A I >4  ALGORITHM 

c a _ _ hide 

T;RHlNAi E PLOT 
Call  PUT  (12. ,0.0, -3) 

CALL  STIdOL  ( 0.  0,  0.  5,  0.  1,  ••PlNlSHEO",‘iG.O  >d) 


o o o o o o o o o o oooooooo o 


SUBROUTINe  Rc ADINP 

RcAO  INPUT  jAT  A A NJ  FORM  LINKtO  LISTS 
C 0M  M ON 

l /CHI/  WlX  , WR A , W3  Y , wT  Y , OX , Q Y , QZ  » PX , P Y , PZ , XX 1 , Y Y 1 » 
i>  XX?, Y Y2, IDeLT A 
COMMON 

1 //  Icl , IE?, NeINtS , NPOL YS, 1PPTR, XOFF, YOFF, SGALt, 
i>  NaT  S , 

2 Xa(1105),YS(1105),ZS(llu5),I£ONO(2760), 
i IPlNO (3  3 0)  , 

T I£ul(27o0>  ,I.D2(27oO)  , I tDL INK < 276 0 ) , 

4 PZMIN(6P0),P0lYm(o^0)  , POL  Yd (o90 ) ,P0LYU(b9U), 
i POL  Y 0 ( 5 9 0 ) , 

5 I Pc  DUE ( o9 0 ) , I PLI3  T ( 090)  ,IPLINK(b9C)  , A X ( 1 7 7 0 ) , 

5 A Y ( 17  7 3 ) , 

6 AZ  (1  770  ) , AXr(l770  ) ,AXYZ(177Q> 

00  1 1-1,400 

IE Jl IN<( I) =0 

1 CONTINUE 

RE  AO  PLOT  SCAct  ANO  OFFoETS 

REAl)  (5,6)  SCALE, XOFF,YOFF 

RE  AO  NUMBER  OF  POINTS,  lINlS,  ANO  POLYGONS 

Re  A j ( -♦ , 9 ) NPi  j,NcL)GlS|NPOLYS 
NL 1 N£S  =.TE0GE  S 

RE  AO  POINT  COORDINATE  ^IST 

read  i+,iu>  (xsm  ,y>  <i>  ,zs  m ,i  = i,npts) 

REA)  line  ENDPOINTS  LIST 

READ  (4,11)  (1E01 ( I) , ie02 (1 ) , 1=1, NEOGETS) 

REAO  ANj  LINK  P U ^ Y G U N AND  POLYGON  eDGE  LISTS 

00  2 1=1 , NEDGES 
IE0-1NK  (I) = -l 

2 CONTINUE 
I PPT  R=  0 

DO  7 I=1,NP0LYS 
IPlINK  U ) =IFPTR 
I P P T R = I 


READ  (-4,12)  J 
IP  '.0(1;  - J 

IP.-.  Jot.  (I  > =K= I F I NO-  D ( Nt  00:  6 , M) 

IlONJ(K) =m 
S CONTINUE 

IF  (J.i.j.l)  GO  TO  A 
K = I: OlINK(K) =IFlN0t0(N_0GL >,M) 

I £ j N J ( K ) = N 
J=  J-  1 
GJ  TO  3 

h coot i no: 

A-’kTNj-  P C_  V oO  N ■ GGl  j ARj  V‘cRTICc.S  IN  it-QUIMCt.  IN 
I ulNKFO  LIFTS 

IlOLINKOO  =0 
K = IP  LOG. (I) 

J = I L 0 2 ( < ) 

Ir  ((J._Q,It31(i„CLl’(K(K>)).OR#(J#cQ,It.i)2(IE0i.IN<(t<>) 
i ))  GJ  T3  5 

IX  = I_J1(KJ  « IOKKI  =1-02  (<)  S IE02(K>=IX 
j C 0 N 1 I N 1 J _ 

IF  (K.S.i.O)  GO  TO  7 
J = it  J L I m K ( K ) 

IF  l tJ.  a.  0)  .OP.  (It  D2  (i-O  . t 3.  ItOl  ( J)  ) ) GO  TO  d 
I X = I C D 1 (J)  - ISJK J)ri_j2( j)  i I£32(j)=xx 
t C 0 N T x N L)_ 

K = J 

GO  TO  5 
7 C UN i I N 1 J . 

RETURN 


FORMAT  FOR  GCAL-  A,(J  OFF  jjT S 
6 FO-PAT  (3F1C.H) 

FOR'AT  FOR  N^T  i , NLl^S,  A NO  NPOLYS 
i FORMAT  (Jlii) 

FOR'-mT  FOk  POINT  coordinates 

10  F 0 PAT  ( it  23. 15) 

■0R1AT  FOk  L IN£  _15( 

11  FORMAT  (215) 

F0R-1A1  FOP  NUM8-K  OF  wJGL'S  ON  POLYGOJ 


o o o o o o o o o o a 


FJ4CTI0N  IFINDEO  (NFDjEG.M) 


REAJ  THl  NlXT  PO-YuON  - DGl  AND  Gl*/E  IT  AN  JNI  QJc. 
t STDRAGl 

location 

Cu-lnON 

1 fZ HI/  RLX , WRX, WBY , WT Y, OX , QY  ,QZ , PX, PY ,PZ, XXI , Y Y 1 , 

J XX2 , Y Y2 , IDlLT A 
COMMON 

I //  xcl , iE2, NLINSs ,NP0LY6, IPPTR, XOFF , YOFF, sCALl, 

1 NPTS, 

2 X6(1105),YS<li0  5>),ZS(1105),IEDNO<27b0>, 
i IPENO (690  ) , 

5 IEDl(2760),IEu2(2760),IZOLlNK(2760), 

■,  PZHiN (690  ) ,PJLYA(o90),  Pul  Y3  (o90 ), PO LYO (69  0 ) , 

9 POL  YD (690)  » 

? I=EDGE(690),IPLIS1(69C),IPLINK(690),AX(1770), 

i AY (1773) , 

6 AZ <1770/ ,AXY< 1770) ,aXYZ<1770) 

Rl  AD  NEXT  POLYGON  lDGl.  NUM3ER 

READ  (4,2)  m 

IF  (iEOwINK(M).til.-l)  GO  TO  1 

THIj  iOGE  A L o O tlE  L OnG  j TO  ANOTHER  POLYGON  - GIVE 
i I T A 

uIFFcRLNT  STORAGE  uOCATION 

NEDGl9=NEJGlS+-1 
IE Jl (NEJGlS) = IED1 < M) 

IE  02 (NEJGEC) =IEP2  < M ) 

I F I N O l D - N l U G E 6 
RET JRN 


i H I j EDG-  H Ao  NOT  Bt_  N UoEU  PREVIOUSLY 

1 C 0 NT  I N J 
1FINjE0=M 
RE  TORN 

2 FORMAT  (6X,i<5) 

E N j 


i' 


o o o o o o o o o 


SU-HOJTIN-.  INITIAL 

INITIALIZE  LX  L CONSTANTS  and  TA3LES 

DIM. Nil ON  X(66)  ,Y  <©S>  , Z (65) , I SIDE (65) 

COMMON 

1 7CW1/  WLX,WRX,WbY,^Tr,UX,QY,aZ,PX,FY,PZ, XXI, YY1, 

£ XX2,YY2,IDELTA 
COMMON 

1 //  I£l,IC2,NLIN£S,NFOLYS,  IPP  T R,  XOFF  , Y OFF  , SCA  L c. , 

£ NPTi, 

2 XS(110£>,YS(1103),ZS(1105>  , ILONO (2  763)  , 

£ IP£NO(i90), 

3 I£01(2',6Q)  ,IEQ2(27oO)  , I^JLINK (27  60 ) , 

4 PZ  MIN  (6  90  » , P0LYm(690)  , POlY6(690)  , POLYC  (690)  , 

£ POL  YD  ( o 9 C ) , 

5 IPlCGE (690) ,IPLI3T (690) , IPLINK(63Q> , AX (17 70) , 
£ AY( 1770 ) , 

6 AZ (1770) , AXY( 1770) , AXYZ(1770) 

LOGICAL  change 

D£  O- LOP  SUmI-E  FACTORS  AND  OFFSETS 

XM1N  = YMIN=ZMIN=1.E2?  £ XMA X= YMA X=ZMAX=- 1 . E 22 

DO  1 I = 1 » NPT  S 

XMINsAMINl  (XMIN,XS  ( I)  ) £ YMIN  = AMI  N1  ( YU  N,  YS  ( I ) ) 

XMAX  = AMAX1 (XMAX,XS (I)  ) $ Y MAX  = AMAX 1 ( YM A X , YS ( I ) ) 

ZMIN  = AMIN1 (ZMIN,ZS (I)  ) l ZMAX=AMAX1(ZMAX,ZS (I)  ) 

1 CONTINUE 

SF  = AMIN1  (1./ (XMAX-XMiN)  , 1 « / (YMAX-YMIN)  ) 

SZ=1. / (ZMAX-ZMIN) 

DO  2 I=1,NPTS 

XS(I)=XS(I)*SF  £ YS(i)=YS(I)*SF  $ ZS(I) =ZS (I) *SZ 

2 CONTINUE 

XOFF=XOFF-XMIN*SF*SCALE  £ YOFF=YOFF-YMIN*SF*SCAlE 
GENERATE  PLANE  EQUATIONS  FOR  PLANAR  POLYGONS 


ioldp=o 
lp=i?pf ? 

3 COnT INOi 

IF  ( IP. _Q. 0)  GO  TO  13 
NXT - DG=I PcOGE (IP) 
NSlDES=IP£NO( IP) 

IF  (NSIDES.  LE . *+  ) GO  TO  6 
DO  4 I=l,NSIDEi 
ISIQE (I) =NXT  EDG 
ID=NXTElGi (NXTEOG) 

X(I)  =P  X S Y ( I ) = PY  £ z m-P7 


4 CONI InUI 
S=0.  i JS=0 

X (MSIOta  +1)  =ax  $ Y (NSIGLSfl)  =QY  S Z < NS  I 0 £ S f 1 ) = QZ 
NS.1=  NSDii-1 

GO  P I = 1 , NsM 

$ I = A 3 S ( ( X ( I f 1 ) -X  ( I ) ) * (Y  ( I f 2 ) - Y ( I 1 ) ) - ( Y ( I f 1 ) - Y (x)  ) ♦ 
* (X  (I*-2) -X  (If  1 ) ) 

1) 

IF  (SI.lL.S)  GO  TO  5 
S=SI  i JS=I 

5 CONTINUE 

Iu^NXTcOGl (ISIQE  < JS> ) 

XI  = X ( JS) *Z  (JS)  i Y1 =Y ( Jsl *Z ( JS)  $ Z 1 = Z ( J3) 

X2=X ( JSf 1) *Z ( JSfl) -XI  $ Y2=Y(JS+1)*Z(JS+1)“Y1  $ Z2= 
i Z ( JSf  1)  -Z 1 

X3  = X ( J 3 + 2 ) * Z (JS+?) -XI  5 Y3=Y ( JSf2) *Z ( JSf2) -Y1  $ Z3  = 
3 Z (JSf 2)  -Z1 
GO  TO  7 

6 CONTINUE 
ID=NXT£DG£ (NXTEOG) 

X1  = P X*PZ  3 Y1=PY*PZ  S Z1=PZ 
I3=NXT£'JGi  l N X T EDO ) 

X2=FX*PZ-X1  « Y2  = PY*=>Z-Y1  ? Z2  = PZ-Z1 
X3  = 3X*  OZ -X  1 3 Y3=QY*JZ-Y1  * Z3  = OZ-Zl 

7 CONTINUE 

POLYA  (I=>)  =Y3*Z2-Y2* Z3 
POL  Yd ( IP) =X2*Z  5-X3*  Z? 

POL Y C (I3) =X3*  Y2-X2*  Y3 

POlYU(IP) =-(°OLYA( IP) fXlfPOLYB(IP) ♦YlfPOoYC (IP)*Z1) 
ST  0 IE  NEAREST  VERTEX  OF  EACH  POLYGON 
Zrti  N=  1 . _ 99 

nxt:og=i PiO^e (ip) 

6 CUNT  INUc. 

IF  (NXTEDGE(NXTll)G)  . EU.  0)  30  TO  9 
IF  (ZMH.GT.PZ)  Z M I N=  PZ 
GO  TO  3 
9 CONTINUt 

PZMIN  ( H)  =ZMIN 

IF  (POLYG(IP).n_,0.)  GO  TO  11 

Tula  POLYGON  IS  5tcN  ON  C.OGE  - ELIMINATE  IT 

IF  ( IOLJP.tO. 0)  GO  TO  10 
IPlINK  ( J.OLOP)  =IPLINK(  IP) 

GO  TO  12 
10  CUNTINU:. 

IPPTR=IP 
GO  TO  12 
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11  COnI inu. 

I0L'JP=IP 

12  CONTINU- 

IP  = 1 PL  INK ( IP ) 

GO  TO  3 

RtLiNK  THc.  POLYGON  LlSi  IN  ORUER  OF  OlSTANGt  FROM 
$ VliWLR 

13  CONTINUE 

GH  A NGl  = . F ALS  t • 

IO_OP=0  5 IP= IPPTR 
1 L CONI  I NJ- 

1F  ( i P . _Q. 0 J GO  TO  13 
J= IPLINK ( IP) 

IF  < . NOt  . ( (J.NE.  0)  . MO.  (PZNlN(IP)  ,LT.PZMiN(  J)  ) ))  GO 
i to  17 

IF  ( IOlOP.lO. 0>  GO  TO  15 
IPLINK ( IOLOP) = J 
GO  70  Id 

15  CONTINJ; 

IPPTR= J 

lb  CONT1NU- 

IFLINK (IP) =iPLINK ( J) 

iplink ( i) =ip 

CHANGt=. TRUE. 

IOL DP= J 
GO  TO  1* 

17  CONTINUE 
I0L0P=I° 

IP=IPLINK(IP) 

GO  TO  1. 

16  CONTINUi 

IF  (CHANGt)  GO  TO  13 

GENERATE  TH^  EQOA  7 i.uNS  FOR  T HE  LINES 

DO  20  1= 1 » NL I NES 
lcl=IEJl (i)  w I£2= Ifc  32 ( I) 

AX(I) =KS <lt2)*XS(IEl>  t AY<I)=Y$(It.2)-YS<IEl>  • 
AZ(I)=Z->  (IE2) -ZS(IEl)  $ AXY  (I)  =YS  UE2)*XS  <IE1>  - 
S XS(IE2; *YS(Itl) 

IF  ( AdS( AX <i) ) . LT. A3S (AY(I) ) ) GO  TO  15 
IF  (ASS(AX(I) ).LT. l.E-*)  AX(I)=l.Eoo 
ZZ  = XS(I_2)  * Z S (if. 2)-Xs  (Itl)*ZS(Itl) 

IF  («3S(ZZ).LT.7S(It2)*l.t-10)  11  - ZS ( IE2 ) * 1 . E- 10 
AZ(I) =(AZ(I)/ZZ).AN0.-13 
AXYZ(Ii=-ZS(It.2)*ZS(iti)*AX<I)/ZZ 
Go  TO  20 


19  CunTINU. 


20 


IF  ( A9S ( A Y (I)  ) . LT . 1.  i --»)  AX<I)=l.t6b 
ZZ  = YS<I_2)*Z:>(Ifc2>-Y3<IEl)*ZS(Icl) 

IF  ( A3S  ( ZZ) . LT.  ZS  (1;  2)  ♦ 1.  — 10)  ZZ  =ZS ( II 2 ) * 1 • E- 10 

A Z 1 1 ) = ( A Z ( I ) /ZZ). OP. 13 

AX  YZ (I)  = -ZS  (It. 2)  *Z S (1 1 1) * A Y (I) /ZZ 

COM! i N J_ 


R=.  i URN 
ENJ 


o o o o o o o o o o o o 


subroutinl  mid: 


c j oo-  for  intfk*il  jiate  sizld  windows 

c 

CO'HON 

1 /CW1/  WLX, WRX, WB Y, WTY, QX, QY, QZ ,PX,PY ,PZ, XX1,YY 1, 

i XX2,YY2, 10- LTA 
OunrtON 

1 //  IE1 1 IE  2 « N LINES  »NPOLYS» IPPT  R»  XOFF, YOFF»SGAl£» 

5 NPTS, 

2 XS(1105),Yo(1105),ZS<1109),IE0N0(2760>, 
i IPENO  < o 9 0 ) , 

3 I;D1(2760) ,1£D2C2760) >IEQLINK(2760) » 

4 P Z N1  N ( o 9 0 ) »PJi_YA(b90)  ,PJLYd  ( 69 0 ) , PO LY C (69 0 ) , 

£ P0L  Y 0 ( o 9 0 ) , 

£ IPEuGf (690) , IPLlSTt  690) , IPLINK( 690) ,AX (1770) , 

£ AY (1770 ) , 

6 AZ ( 1 770)  , AXY ( 1773)  , aXYZ ( 17  70  ) 

CO»:90N 

1 / L 1 N<  S / JPLIN<  (69  0 ) , I LL I ST  ( 1 7 7 0 ) , I J LL  I N K ( 1 77  0 ) , 

£ ILPTR, JLPT\, 

2 JPPTR 

SET  NUIibt.R  OF  INTtRM-DIATE  WINDOWS 

NW  = (0. 5 + (FLOAT (NlINES) ) **Q. 25) 

SIZc  T Hl.  LARGE  WINDOW  RtCTANGL-  (LWR) 

ML X=WBY= 1. £9*  £ WR  X = W T Y =- 1.  c.  99 
00  1 1=1, NPTS 
WLX= ArtlNl ( WLX, XS ( I ) ) 

WRX  = AMAX 1 ( WKX , XS ( I ) ) 

MB Y = A M IN 1 (WBY,  YS(I)  ) 

WTY=rtMAXl ( MI Y, YS  (I ) ) 

1 CJnTINJ.-. 

XMlN=WLX-  l._-6*A9i>  (W_X) 

OX= ( WRX+ l.c-6* A3S ( WRX) -XMlN) /FLOAT (NH) 

YWlN  = W9Y-i,c.-6*AflS(WBY) 

DY  = l WT  Y*  1 ,c.-b*  A3S  (WT  Y ) - Y*1IN)  / FLOAT  (NW) 

PRiScI  LINE  STAIJS  LlSi 

DO  2 1=1 »NLlNtS 
ILlISI  (I ) = 0 

2 CONTINUE 

SCA  J BY  I NT  i.'vMt  ul  h T l.  WINDOW  ,<£CT  ANGLES  (IWR) 


O O O O O O Cl  t 1 o o o o o 


DO  13  IJX=1,NW 
00  19  IJY=1,NW 
WRX=XNl4+DX*FL0AT(lJX) 

W^X=WRX-OX 

HTY=YrtI'4  + OY*FLOAT  ( I JY  ) 

W3Y=  WT  Y-DY 

IDENTIFY  "I"  LlNEi  AND  F O^M  A LINKAGE  Llol 

ildtk=d 

DO  3 1=1 , NLINES 

IF  ( 111  I ST  ID.Nc.O)  30  TO  3 

QX  = XS (I- D1  (!) > i OY=YS (IED1 (I) ) 

PX=  XS ( IE 02  < I ) ) ? PY=YS< IED2  (I) ) 

IF  UCLIP(O)  . tQ.OI  GO  TO  3 

IJLLINK(I) =ILPTR  & IlFTR=I  5 1LLIST(IJ=1 

3 CONI INUi 

IF  ( I LPr  R. EQ . 0 ) GO  TO  19 

OET-RrtxNL  THE  “J“  WINDOW  RECTANGLE  (JWR) 

WlX=W9Y=1. t*9  ? WRX  = <4TY=-1. t99 
1= ILPT  R 

4 CONTINU- 

WLX  = AMIU1(W.  X,XS(IE91(I>) ,XS  (IE.02  (I)) ) 
HRX=AMAXl(WRX»XS<xE3L <I) > , XS (I £02 ( I) ) ) 

WtJY=AMI  41  < WdY,  YSUE01  (I ) ) , Yo ( IED2 (I)  ) ) 

WTY=AMAxl  (WT  Y ,YS(IEDl<x>  ) , YS  (IE02  (I)  ) ) 

I=IJLLINK (I) 

IF  (I.Nl.O)  GO  10  * 

FIND  "J"  LINES  mN D FORN  A LINKAGE  LIST 

JLRT  R= ILPTR 

DO  5 1=1, NLINES 

xF  (ILwISI  (I) .tQ.  1)  30  TO  5 

QX  = XS ( IEOl  (I) ) * Q Y =Y S ( IEOl  ( I ) ) 

P X=  XS ( IE  02  ( I ) ) l PY  = YS  (IED2  (1) ) 

IF  ( ICLxP( 3)  . tQ. 0)  GO  TU  5 
I J_  _ I NK ( x) = JLPTR 
JL ->T  R=  I 
b CONTIN'J. 

FIND  POLYGONS  IN  THIS  WINDOW  AND  FORN  A LINKAGE 
S LIST 

IS JR= JPPTR=0 
ZSJR=1._39 
IP  = i PPT  \ 

G CONT IN Jl 


II  Hr  r A = J 

NXi  _Ja  = I PlJGc  (IP) 

7 CONTINUE 

IF  ( NXT  r JGc.  ( NxT  tOG)  .-Q.  0)  GO  TO  9 

if  <icl:p(i).eq.Q)  go  to  3 

JP_  i NK,  ( 1 P)  =JPPT1- 
JPPTR:!-5  £ ITH^TA  = -1 
GO  10  1j 
6 CONriNJi. 

ITH_  TA  = ITH.IT  AflOcLTA 
GO  TO  7 
9 LOMTINO; 

IF  (IA3S  < ITHETA) . Nt. 3)  GO  TO  10 
ZIP=*ETZ(IP,WLX,N9Y> 

IF  (ZIP.oi.ZSUR)  GO  10  10 
ZS'JR  = ZI->  i ISUR=IP 

10  CONTINJ. 

IP=IPlI \K  ( I P) 

IF  ( IP.  Jc. 0)  GO  TO  6 

CLUINUTE  A Lc  LIMES  ANj  POLYGONS  BE  YON  J THE 
I MEANEST  SUR<JJN0E\ 

IF  ( (ISJK.da. 0) .OP. (JPPT^.lQ.0) ) GO  TO  17 
IOLl»P=0  t IP  = JPPTR 

11  coitinu: 

NX  T=.l>S  = .l  HEDGE (IP) 

1 2 CONY  I NO  ^ 

NJJ=IE JNu(NXTFOG) 

IF  lNXrE0ui.(NXT;0&)  . EO.O)  GO  TO  15 
IF  (IGLlP(l) .lO.O)  GO  TO  17 
W X Y = X X 1 

IF  ( < AZ  ( N;Q>  . AND.  1 3)  . N£.  3.  ) WXY=YY1 
ZVAl=AXYZ(NlO)/(AZ(N.D)*WXY-1.) 

IF  (ZVAL .LE.GlTZ (ISUR, XXI, YY1) ) GO  TO  15 

13  CONTINUE 

IF  (ILuIST  (NtJ).EQ.l)  ILLIST  (NED) =2 

IlLIST(NcL)=ILLIST(Nij)«-10 

Nl  j= I E 0 NO ( NX T F OG) 

IF  (NXT-Ol»E(NXTEOG)  . N E • 0)  GO  TO  13 
J=JPLIM< (IF) 

IF  (IOLjP.cO.O)  GO  TO  1*. 

JPLI N< (IOlOF) = J 
GO  TO  lo 
1 *♦  CO  NT INJi 
JPPTR= J 
GO  T0  lo 
15  contino: 

I GLO  P=  I'"3 
lb  CON  I INJI 
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IP= JPLINK ( IP) 

IF  ( IP. ME. 0)  GO  TO  u 
1?  CON  7 IN  J- 

“I"  wIN£5  A iMD  uRAR  VISIBLE  PORTIONS 

IF  ( jPPTR.tQ. 0)  GO  TO  19 
GALL  LINE3RW 

uH;:<  off  lincl  completed 


U 

C 

c 

r 

c 


DO  13  1= 1 » Nl INpS 

IF  IILlI^T  (I)  .G-.  10)  aLcISI  <i)  = In.  1ST  (I)  -10 
IF  (IlLIST (I) .cU.l)  I LL 1ST ( I ) -2 
Id  COnTI Nj; 

THIS  INTERMEDIATE  WINOJW  IS  PROCcSStD 
19  CONTINU- 
AL L u ONE 

RETURN 

END 


O O C?  O O C J OO  O OOO  o O O 


SUBROUTINE  LlNE'JRW 


pROGc-SS  THE  L I Nl  3 IN  AN  xNTc_RMxOIAT  L WINDOW 

DIMENSION  XI(102),YI(1U^)  |7i  (102) 

LOGICAL  L x NE.  S a , t i S , I C AND  I T 
GOHrtON 

I  /JW1/  WLX,  fcRX,  W8Y,  WT  Y,  QX  , (}Y  ,QZ,PX,  PY  ,PZ,  XXI,  YY  1, 

S XX2,YYZ,IDc.LTA 
C O'lnON 

1 //  IE1  , It.2,  NL1NE  j ,NkOLT  s,  ippt  r,  xoff,  yoff,scale, 

S N r T 3 , 

2 XS (1105), YS (1105)  ,ZS(1105),IEDNO(2760)  , 
i 1 PENO (o  90 ) , 

5 I EDI ( 2 7o0>  , l£L»2(  27b 0) , IEDLINK (2760) , 

■+  PE.'liN(b90),PTLYA(o90)  , POLY9(69  0)  , POLYC (o90) , 

£ POL  Yl>(  = 90)  , 

3 IP£OGE (690 ) , IPL1SI (690) , IPLINK(690) ,AX(1770) , 
£ aY (1770) , 

5 AZ (1770) , AX Y( 177Q) , AXYZ (1770) 

GGrtH jN 

1 / u I N<  S X JPLINK (o90) , ILLIST (1770) , IJLLINK(  ’70), 

S ILPTR,JLPTP, 

2 JPPTR 

ChEGK  AND  D i\A  W LINt  9 Y lINc. 


I = Il:>TR 

1 CunT INJI 

lF  i HIS  L IN:  iS  ic.cN  lNu-ON,  IoNURE  IT 

IF  (AXC)  »E3.1»c66)  GO  TO  16 
It 1-IEDl ( I ) i IF  2 = lL02 (I) 

IF  (LWIND0W(I,lN7RSCn-l»  15,3,2 

NO  I NT  L RSt.C  T Qk.S  - O R A W LINE 

2 CON i INJx 

call  PLOT  ( ( XOFff  SCA-X*  XS  ( Ic.  1)  ) , ( YOFF  + SCALE*  YS  (It  1)  ) , 
S 3) 

CAlL  PLOT  ( ( XOFF^SCA.c4 XG (I  _2)  ) , ( YOFF*SCALt*Y$ (1E2) ) , 
£ 2) 

GO  T0  15 

INT.RStCTORS  EXIjT  - SOLVe. 

3 CONTlNUx 


1 7D 


* — 


O O O O O O Cj  o o 


FINJ  INT ERScCTIONS  ON  LINc.  '‘I" 

XI ( l) =XC  (IlI ) S VI ( 1) =YS(Ii 1)  £ ZI(1)=ZS(IE1) 

NI NT = 2 
J=JLPTR 
*♦  CO N T I N 

IF  ( ( J.  _Q.  I)  .OK.  ( AX  ( J ) . El.  1 .Lob)  ) GO  T'J  5 
IF  (LiN- bX  (I  , J,  XI  (NINT  ) , Y 1 ( MNTJ  , ZI  (NINT)  ) ) N I N T = 

£ NINT  + 1 
b CONI  I N J_ 

J=i JLLIN<( J) 

IF  ( J»  N; • 0 ) GO  TO  L 
NINT  sNINT-1 

IF  (NINi . L£. 2)  GO  TO  9 

Ak-^Noc.  THE  INTE^SuCT  IONS  IN  ORQtR  FROM  "IEl"  TO 
£ "1^2" 

IF  l A 3o ( A X ( 1 ) ).LT.A9G(AY(x)))  GO  TO  7 
NN=NINT -1 
00  o J=2,NN 
JP  = J*1 

DO  o K = J P » NINT 

IF  (AX(I)MXI  IKJ-XllJ)  ) .G£.  0.)  GO  TO  6 
X=XI(J)  S Xi(J)=XI(KI  $ XI(K)=X 
r - Y I < J > $ YI ( J) =YI ( K I j>  Y1(K)=Y 

Z = Z 1 ( J ) j.  ZI(J)=ZI(K)  £ Z I ( K ) = Z 

b Cunt  in j i 
GO  TO  9 

7 CONTINUE 
NiN  = NlNT  - 1 
00  o J - ? » N .N 
JP= J+l 

00  3 K=JP,NINT 

IF  (AY  (I ) * (YI  (K)-YI  (J) ) • Gt.  o . ) GO  TO  8 

X = X I ( J ) $ X1(J>=XI(K>  i X 1 ( K ) = X 

Y = YI ( J ) $ YI(J>=YIIK>  3 Y I ( K)  = Y 

Z = ZI(J)  3 ZI(J)=Z1(K)  j.  Z I ( K ) = Z 

8 CONTI  NO: 

9 COHT  i NO  -I 

XI  (NiNT*-l»  =XS  (IE2)  $ YI  (NiNT  + l) =YS (IE2)  3 Z I < MINT  ♦ 1 ) = 
3 Z 3 ( I E 2) 

JkAN  VISIBLE  SEGMENTS  OF  LINE  "I" 

XJ=k=0.3* (Xl(l> »XI(2» ) * YJ=0 . 5* ( YI (1) +YI (2) ) 

IF  ( («Z(  I)  . AN0.  19)  .N£. 0.)  H-YJ 
Z J = A X Y Z (I )/(AZ(I)*W-l. ) 

IF  ( . NOT . ICANCIT (TNT<bCT, X J , Y J , Z J) ) GO  TO  10 
LVIS=. TRUE. 
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Xc =X I < 1»  s Y £ - Y I ( 1 > 

GO  TO  11 

10  cu<tinui 

LVIS^.FALSl. 

11  COMTINU- 

1F  (NINT  » CO. 1 ) GO  TO  14 
u 0 13  J-2.NINT 

XJ:rf  = 0.5MXl(JJ  tXI(JH))  $ YJ=0.5*  ( Y I f J)  + YI  (J  + l)  ) 

IF  ( (AZt I) .AND. 10) .NE.O.)  W-YJ 
ZJ-AXYZ  (IJ / (flZ (I) * W-l. ) 

IF  ( ICANCIT ( I NTFSCT , X J, Y J,Z J) ) GO  TO  12 

IF  l . NO i . L/iS)  GO  TO  13 

LVIS=.FALSI. 

CAll  PLOT  ( (XOFF+SCA.t*XI) , < Y OFM-SC ALt* Y £> ,3) 

CAlL  PLOT  ( ( XOFF+SCm.L *XI ( J ) ) , ( YOFF+SCALl* YI ( J) ) , 2) 

GO  TO  13 

12  CONTINU- 

IF  <LVl>)  GJ  TO  13 
X£=XI( J)  S YE  = Y I ( J ) 

LV I j=  . T<'Jl. 

13  com  injl 

It  CONTINLII 

IF  (.NOT.lVIS)  GO  TO  15 

CAll  PLOT  ( ( XOFF+SCw.t* XI) , ( Y OFF + SC AL L* Y t) , 3) 

GALL  PLOT  ( <XOFF  + SCA_t.*XS  (Il2)  ) , ( YOFF  + SC ALE* YS  '1121)  , 
i 2) 

15  CON  I I NO. 

1=1 JlLI NK(I) 

IF  (I.N_.0)  GO  TO  1 

KE.T  J*N 
£ NO 
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FUNCTION  lWiNQOW  (I,INiftSCT) 

c 

C FORM  A lIN<_0  LIST  OF  xlL  POLYGONS  WHICH 

C $ INIcIKS^CT  'Me  SWK 

C OM  HON 

1  YoWl/  WLX,WRX,W3Y,WTY,QX,QY,QZ,PX,PY,PZ,XX1,YY1, 

5 Xx2,YY2,I0ll1A 
C OMMON 

1 //  Itl,I£2,NLIN£3,NP0LYS,IPPTR,X0FF,Y0FF,SCALE, 

1 NPT  S , 

2 XS(110^),YS(110b>>,2S(llCl5),IcONO(27  60), 

3 MtN0(o9Q)j 

3 IE01  ( 27 fcO), 1102(2760), IUOLINK 12760 > , 

- PZMIN(390)  >p0LYA(690)  , POL YB  ( 6 9 0 ) , POLYC  (69  0)  , 

i>  POL  YD  13  9 0 ) , 

5 I°E0G£  (o90),IPlx5T(d90), IPLINK (5  90 ) , AX ( 17  70) 

» AY (1770) , 

5 AZ (1770J , A X Y ( 1770  ) , AXYZI  1770) 

COMMON 

1 /LINKS/  JFLxNK (690) ,IlLIST (1770) , IJLLlNK ( 1 77 0 ) , 

5 ILPlK, JLPTR, 

2 J P P T R 

LNMJOW- 0 

JEFlNe  SMALL  WlNJOW  RlCTANGlc  LIMITS  FOR  LINE  "I 

xc=*s<i:i>  . yj=ys<i:i)  s zc=zs<i^i) 

X7=IXC*X3(IE2))*.5  j,  YT=(YC+Yi(IE2) )*.5  J ZT=(ZC+ 
i ZS  (II?)  ) * 0. 499999 
lr  ( A3S ( AX  (i) ) . LT. AB>  (AY (I)  ) ) GO  TO  1 
E P X = A B3  < AX (I) ) * 1. l-5 
GO  TO  2 

1 COnTINJ. 

tPx  = -48i ( A Y ( I ) > *1,  t-j 

2 c o n r i n j : 

EPY=-lPX 

WLX-AMlNl(XL(Ii_2)  , XC)  +ePX 
wRx  = AMAX1 (XS ( IE2 ) »XC) -EPX 
H9Y  = AMiHl(YS(Ii2)  ,YD  + ..PY 
WTY  = AMAX1( YS(Ie2)  ,YC)  - SPY 

iNiTiAeiZfc.  thinker  lists 

13UR.N0R- INTkSCT  = 0 
ZMI  hMmX^AMAXI  ( ZC  > ZS  ( [ L2  ) ) 

ZSJh=1.-99 


C START  LOOKING  DOWN  HE  POLYGON  LIST 

C 

IP= JPPT< 

C 

Q LOOKED 

C 

3 CONTINUE 

IF  ( (IP.Ed.O) .OH. (PZrtINlIP) .GT.ZHIUHAX) ) GO  TO  0 

c 


c 

c 

c 


o 


DON'T  CONSIDER  POLYGONS  HAl/ING  LINE  "I"  AS  AN 
? lJGE 

NXTi J3  = I PE JjE ( IP) 

L CO  NT  I NUl 

IF  (lEONO(NXTEDG).EQ.  I)  GO  TO  8 
NXTl0G=IE0l1NK(NXTED3) 

IF  (NXT-U&.NE.O)  GO  TO  *, 

I T He.  T A = 0 

NX  T E DG  = i PE  Jot (IP) 

5 CONTINUE 

IF  ( NXT_  OGc  ( NXT  EOG ) .-Q.0)  GG  TO  7 

IF  ( IClxP(I) . EQ.O)  GO  TO  6 

IPlIiT  < IP) =1NTR^CT 

INT  RSG  T = 1 P 

ITHETA=-1 

GO  TO  7 

6 CONTINUE 

ITHETArUHET  A+IOELTA 
60  TO  5 

7 CONTINUE 

IF  (IA3G(ITH£TA)«NE.3)  6J  TO  8 
Zlo=GETZ(IP,XT,YT) 

IF  (ZiP.LT.ZT)  RETURN 
IF  (ZIP  .Gc , ZSOR)  GO  TO  8 
ZS JR=ZIh 
ISURNDR=IP 
a CONT INU  _ 

IP=JPlINK( IP) 

GO  TO  3 
9 CONT INUE 

THINKER 


IF  (ISUrNOR.EQ.O)  Go  TO  Ip 


C RLHjVl  any  hidden  polygons 

ly 

IUwjP=0  i IP=INTRSCT 
10  CONTINJ. 
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IF  HP.  i_Q.  0)  GO  TO  15 
NXT  i_OG=IPi.DGE  ( I P I 

11  continue 

N£u  = ItONGlNXl EOG) 

IF  (N)xr_OGl(.MXTcOG)  ._Q.  d)  Gu  TO  13 
IF  (ICLIP(l)  . t.Q.  0 ) GO  TO  11 
WX Y = XX 1 

IF  ( ( A Z ( M£0)  . AND.  19)  . Nil.  Cl.  ) WXY=YY1 
ZVAL  = AXYZ(Nc.O)/(AZ(NEO)*NXY-l.) 

IF  (Zy/AL.LE«GETZ(ISU^NDK>XX1,YY1)  ) GO  TO  13 

POLYGON  COMPLuTc-Y  HIOjcN 

J=IPlIST (IP) 

IF  (IOLOP.LO.O)  GO  TO  12 
IPLI5T  (IOLOP) = J 
GU  TO  1-, 

12  CONTINUE 
IN?  RSCT  =J 
GO  TO  14 

13  CONTINUE 
IJlOP=I? 

1 L CONTINUE 

IP=IPLI3T (IP) 

GO  TO  10 
lb  CONTINUE 
LWIN00N-2 

IF  < INTRSCT. NE. 0)  LWINOuW=l 

RETURN 
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LOGICAL  FUNDIJn  LInlSX  ( I , J , XC , YC  , ZC ) 

JO^  line  ••j"  COGS  IN  J-RuNT  OF  LINE  ”1"  ? 

C011  JN 

1  /Crfl/  WLX , WRX, WdY , rtT Y, UX , OY , *Z , PX ,PY , PZ , XXI » Y Y 1 , 

£ XX2,YY2,I0lLTA 
COirtON 

1 n IE1 , Ifc.2, NLINCS, NPOLYS, IPPTR, XOFF, YOFF, SCAlE, 

£ ND  f 5 f 

2 Xi  (1105) , YS( 1105)  ,ZS( 1105) , IEONO (27  60  ) , 

Z I NO  ( 2 j G ) , 

5 i-Ol (2. 'uD)  , IE  02 (27b C)  , i£0l 1 N< ( 2 7 b 0 ) , 

+ PZMIN(690),F0LYA(o90)  , POL  Yd  Co 90)  ,POLYC(j90), 

£ POlYO(j90)  , 

5 IPcOGc.  ( .:>  d 0 ) >IFLIST  (690)  »IPLlNK(o90)  »AX(1770)> 

i A v ( 1 7 7 0 ) , 

5 4Z ( 1 770  ) , AXY(  1770)  , AXYZ< 1770) 

jEl-lEOl (J)  $ Jl2=I)D2(J) 

L I N;.  3 X = . FALSE. 

IF  (AMIN1 1 ZS  (JE1)  ,ZG(  JE2)  ) . Gt.  A’lAXl  (ZS  ( Ic.1)  ,ZS  (I£2) ) ) 
£ RETURN 

Q = A X ( 1 ) * A Y (J)  - A X ( J ) “AY (I) 

IF  ( A 3 5 ( 0)  . tT  . 1 . l- 6)  RdTJkN 

XC  = - (AXY ( I ) * A X ( J ) -AXY  ( J ) * A X (1)  )/D 

Yw=-(AXY(I)*AY(J)-AXY(J)*AY(I))/D 

IF  ( A9S (AX (I) ) . LT. A3i (AY(I) ) ) GO  TO  1 

IF  (<(XC-X3(It.l))/AX(I>  .Lc. 1 .E-5) . OR.  < ( XS ( I £2 ) -XC ) / 

J AX(I)._E.l.E-5) 

1)  E e.  T U R N 

Z«  = A X Y Z ( I )/  (A  Z<  I)  * XC-  1.  ) 

GO  TO  2 

1 CONTINUE 

IF  <((Y:-Y5(IEl))/AY(i)  , _ l . 1. t-5)  . OR.  ( ( Yi ( IE2) -YC) / 

5 AY (I) ,lc. 1. £-5 ) 

1)  RETJRN 

ZC=  A X Y Z ( i ) /(  A Z ( I)  * YC-  1.  ) 

2 con. inj: 

IF  (mBS ( AX ( J) ) , lT . A JS (A Y( J) ) ) GO  TO  3 

IF  ( ( (XC -XSl JL1) ) X AX( J)  ,tat.  1. ._-:>)  .OR.  ( IXS(JEZ)-XC)/ 

S AX(J) . L t • 1 • t-5 ) 

1 ) RE  I JR  J 

0J=AXYZ(J)/(AZ(J»*XC-1.) 

GO  TO  4 

3 CONTINUE 

IF  <<  <rC -YS(JEl)  ) / A Y(  J)  ._i_.  l.L-5)  .OR.  <(  YS  ( JE2)  - YC)  / 

S AY  ( J)  .It.  1.  t-i  ) 

1)  RETURN 
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OJ=-XYZiJ)/(AZ(J>*YC-l.) 

* CONTINUE 

IF  (Z3.uT.JJ)  kZTURN 
L I l^u  o a = . T RUc  . . 

R£T  JRiM 

t.M  J 


\ 

t 

t 
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LOGICAL  FJNCTIJM  ICA'JCiT  ( I POT  , XC  , Y C , Z C ) 


IS  I HL  POINT  (X(,YC,ZC)  V IS  I )L  i ? 

CO* TON 

1 /CW1/  WLX , W\X, W3Y, WT Y, QX , QY,QZ ,PX, PY , PZ , XXI , Y Y 1, 

t XX2  > Y Y2  » IQL  L7  A 
COM  X JN 

1 //  I 51 , xt 2, NLINlS , NPJL YS, IPPT X, XOFF , YOFF, SCAl l, 

£ NPTS, 

2 XS (1 105 ) , YS ( IIQ9)  ,ZS< 1106)  , IlDNU (27  60  > , 

I IP£NO(*'9  0)t 

3 1lD1(27S0>  , II  0 2(27  6 0)  , IcDLlNK ( 2760 ) , 

- PZr II N (O90)  , ^DL  YA (p  30)  , POL  Y3 (6 90 ) , POLYC  <o90)  , 

j>  PPL YO ( ,00), 

3 IP£DbE  (500  ) , IF  LIS  i ( t 9 0 ) , I PL  1 NK ( g 30)  ,AX(177Q) 

j>  AY  ( 17  70  ) , 

•3  AZ  (1770)  , A X Y ( 1 7 7 0 ) ,AXYZ(l770) 

CATm  LP3/ l._-9/ 

I C A N 3 I T - . FAlpL. 

CON^TtxUCT  A tjmy  WINDOW  A 3 0 U T T Hi.  POINT 


WLX=XC-  Pi  i WRX=XC+lPS 
W3Y-YL--.PS  ? ^TY-YCflPS 

ST  ART  LOOKING  DOWN  T3£  POLYGON  LIST 


1 P = I P p T 

1 cunt  in  j- 

IF  (IP. ' Q, 0)  GO  '0  s 

if-  (GlTZ(1P,XC,Yg)  .GT  .ZC-l.fZ)  GO  ”0  t 
ITHE T A = 0 

NXT  lU3  = I PtDGE (IP) 

2 con; inj. 

IF  (NXT_D66(NXTt  1G) . £Q. 0)  GO  TO  3 
IF  (ICLXP(l) «M£.G)  R£TURN 
1 T Hi  TA=iTH£T  A + IOt-.LT  A 
GU  TO  2 

3 CONI  I N U .. 

IF  ( iAdj  (lTHF-Trt  ) . S0.3)  k£TJi\N 
h continj; 

IP=iPLl3T (IP) 

GO  TO  1 
5 Cun 7 INU. 

ICANJIT= . TRUE. 

RETURN 


r 


FUNCTION  GETZ  (IP, XP, TP) 

FI  Nj  TH-  Z-YAL  U"  AT  (XP,YP>  ON  SURFACE  OF  PUuYGON 
5 IP 

COMMON 

I  /CW1Z  WLX , WRX, W8Y, WT Y, QX , UY,QZ , PX,PY , PZ,  XXI , YY 1, 

I X X ? , Y Y2 , i GELT  A 
C OMMON 

1 //  I£l,i£2,NLlNES,NF0LYS>IPPTR,X0FF,Y0FF, SCALE, 

1 NPT3, 

2 XS  ( 1 1 05  ) , Y b (1133)  , ZS  ( 1 10  6 ) , IEDNO(27oO)  , 
i IPENO  (690 ) , 

3 IE01<  27  60) , IE02 (2  7o0> , ItOLlNK (2  760)  , 

4 PZ  rllN  (690),  PD  L YA(t9U)  , POLY J (690)  , POLYC  (69  0)  , 

1 POL  YD  (390)  , 

3 IPEDGl  (fc9(l),IPLI3T(69  0),IPLINK(o90),AX(l770), 

i AY ( 1770  ) , 

0 AZ ( 1770 ) , AX Y(  1770)  , AXYZ ( 1770  ) 

DATA  IPCTORl  /0/ 

IF  PULYGON  IS  NOT  A OUAuRAL ATlRAL , FINO  Z TrtE 
t>  EASY  WAY 

IF  < IP‘£NO(IP)  . £Q.  4)  GO  TO  1 

GET  Z = *P0LY0(IP)  / (POcY  A ( IP  ) * X P+-  POL  Y 9 ( IP)  *YP  + POL  YC  ( IP)  ) 
RETURN 

IF  POLYGON  1»  WAS  THE  lAST  CIUAOhAlAT  ERAL  DONE, 

1 3 KIP  THE 
PRELIMINARY  STUFF 

1 CONTINU- 

IF  ( IP.cQ. IP  S I ORE ) GO  TO  2 

preliminary  stuff 

I P S T OR£= I P 
UE 1=IPEjGE (IP) 

JE2=I£DLINK( JE1)  S J. 3= IEUL INK ( UE 2 ) 

IP1  = U01(Je1>  l TP2=IEi)2(Ue1)  I IP3  = 1 ED  2 ( UE2)  S IP4  = 
i 1-02  ( JE  3) 

XD  = X3  (IP4)  *ZS  (1P4)  ? YU  = YS  ( IP-f)  *ZS  ( IPh)  3 ZD=ZS(IPh) 
XA0=XS(IP1)*ZS(IP1)  -X0 
X*3=XS  (I  P3)  * ZS  ( 1PD  -XO 
OX=-xAO-XCO-XQ+XS(IP2)1 * * 4ZS(IP2> 

Y A 0=  Y S (I  PI ) *ZS  ( IP  1 ) -YO 
YC  J = Y S (IP3)*ZS(IP3) -YO 
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JY=-YAQ-YCD-Y0«-Y3  ( I ?? ) *ZS(IP2) 

ZAu.=  ZS  (IP1)  -ZO 
ZC  Q = Z 3 (103) -ZD 
OZ--ZA U-ZC0-ZJ*Z3(IP?) 

BX=YCD*JZ-ZC0*3Y  $ HY=ZCD*CX-XCD*JZ  $ dZ=XCD*G Y- YCO* 
i DX 

FX=YAJ*ZoD-ZAG*YCD-YD*jZ+ZU*DY 
£Y  = ZAD*XCO-XAO*ZCj-ZD*l»X*X.j*OZ 
LZ=XAU*YCD-YAO*XCD-XJ*JY+YD*DX 

GX  = Y AG*Z  J-7.AG*Y0  i GY  = Z AD  * X D- X A D*  Z J * GZ=XAD» Y D-Y AD* 
5 XD 

^ E T UP  AND  SOLVE  QUADRATIC  FOR  ALPHA 

2 CO  n'i  1NUZ 
3=XP*3X*YP*bY  +■  3 Z 
E=XO*cXv YP*lY+£Z 
G=XP*GX* YP*GY+GZ 

IF  U83(8)  . LT  .1.C.-8M3S  (E)  ) GU  TO  5 
S = E/ < d*d) 

SS  = 3**2*-G/3 
IP  (SS.LT. 0. ) GO  TO  b 
AlPHA=3*SQRT  (S3) 

IF  ( ALPHA. GT  . 1.  > ALOHA^J-S  - ALPHA 

3 continue 

XX=(OX-XP*OZ)  *aLpHA+-XAD-XP*ZAJ 
YY=(JY-YP*DZ)*ALpHA+YAJ-YP*ZAD 
IF  ( (A3S  (XX)  *A9S(YY)  ) .^7.  ZD*l,c.-li)  l.0  TO  7 
iF  (AB5( XX) .LT. A3S ( YY) ) GO  .0  4 
T Z = ( ( ^Y*  ALPHA---  Y)  * AlPHA -GY)  /XX 
RcT JRN 

4 continu: 

o-TZ=-((DX*ALPH4-^X)»ALPHA-GX)/YY 
kc T URN 

5 CONTINU- 
ALPHA=-G/t 
GO  7 0 3 

THE  POINT  Io  NuT  ON  THE  POLYGON'S  oJRFA^c. 

6 CONTINU- 
GcTZ  =1.-22 
kZ TURN 

rwo  solutions  - th^  nearest 

7 CONTINJ- 

Z2=Z0+ ALPHA* ZCD  i 1 1 = ZZ  i-Z A D + AL  PHA  * OZ 
GETZ=A-II  N1  <Z1, 72) 

RETURN 

END 
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FJNGTIJN  NX7  c.uGl  (NVFtDG) 

c 

C FINT  unDPOINTS  Or  NeXT  _UGc.  IN  LlNKLJ  LIST 

0 

COIION 

1 XCWI/  WLX , W <A, WaY, Hi T , NX , QY,QZ , PX, PY ,PZ , XXI ,YY 1, 
l XX2,YY2,10:.LT \ 

Z OH NON 

1 //  Itl, 122, NlINES,NPJLYS,IPPTR,XOFF,YOFF, SCALE, 

5 N 3 7 5 , 

2 Xb (1105), YS(110 3), 23(1105), I^ONO(27fc3), 
i IDaNO (390)  , 

3 1E91(276l)  ,IiU2(2750)  , IEJL INK < 2 7 6 0 > , 

U PZ  MI  N (&90)  , PD  LYMo'Su)  ,P0LY3(o9u>  , POLYC  (69  0)  , 

i POL  YO  (390  ) , 

3 IPEuGE  (€390  ) ,IPLIST(b90)  , IPLINK  (690)  ,AX(  1770)  , 

6 AY  1177] ) , 

3 AZ (1773) , AXYi 1770) ,hXYZ<1770) 

r* 

IF  (NIXT.Jo.lQ.0)  GO  TO  1 
I=1ED1 (NXTEuG) 

PX  = XS  ( I) 

PY= YS ( I ) 

PZ  = Z3 ( I ) 

1=1- J2 (NXTEDG) 

QX=XS ( I) 

QY  = YS ( I) 

QZ  = ZS  (I) 

U X i iOG  = i.^OwINK(NXi  LOj  ) 

NX  i — j G — = “ 1 
KL  T J RN 

W 

C NU  ^O  fie  EDbES  F 03  THIS  POLY&JN 

V 

1 CONi IN JE 
NXTt  OGE= 0 
Re  T 'J  RN 
o 

ENu 


O O O C,  O C>  O 


FUNCTION  ICLiP  (J,IND) 

CLIP  SUBPROGRAMS  - INCLUDE  ICLIP,  PUiH,  IANGLt, 

I ANJ  INCODE 

COMMON 

L /cm/  WLX , WRa, WBY, wT Y,QX , QY ,QZ , °X, PY , PZ, XXI , YY1, 

£ XX2 , Y Y? , IOlLTA 
COMMON 

1 //  itl , 1l2, NLINES ,UPOLYS, IPPTR, XOFF, YOFF, SCALE, 

£ NP  T S , 

2 XS(llQG) , Y S ( 1 1 0 5 ) ,ZS(1105)  , IcDNO ( 2 7 60 ) , 
i IPENO (a90)  , 

3 IiDl  ( 27b  0)  ,I=.U2  (276  0)  ,IEOLlNK( 2 760)  , 

4 PZMIN(690),PjLYA(&90) ,°OLYd <690),POLYCC690), 

5 PO.YO (6  90), 

5 IPEDGt (o90) ,i PL 1ST (690) ,IPLINK(690) , AX (1770) , 
3 AY ( 1770) , 

6 AZ (1770)  , AXY(  1770)  ,AXYZ(177Q) , I Cl , IC2 

IuLlP  SECTION 

I JilTA=3 
X X 1=  I X Y Y 1 = Q Y 

ICl=IWCJOE (XXI,  YY1) 

X X 2 = P X i YY2=PY 
IC2-IRCOOi(XX2,YY2) 

1 CONTINUE 

IF  < (ICi.EQ.  0)  . AND.  (IC2.tQ.  QM  GO  TO  6 

IF  ( (IC1 . AND. IC2) . N_. 0)  GO  TO  7 

IF  ( I C 1 . Nt. 0)  GO  TO  2 

IX=IC1  . IC1=1C2  i IC2= IX 

X-XX1  £ XX 1=  XX2  { XX2  = X 

X = YY1  £ Y Y 1=  Y Y2  ? YY2=X 

2 CUNi INUE 

IF  ((ICl.ANO.l) .EQ.0)  bu  TU  3 
CALL  PUoH  ( C , WL  X ) 

GO  TO  1 

3 CONTINU- 

IF  ( (ICi.  AND. 2)  .EQ.  0)  GO  TO  4 
CA^L  PUiH  ( U , WR  X ) 

GO  TO  1 

4 CONTINUE 

IF  ( (ICI. AND. 4) .EQ. 0)  Gu  TO  5 
CALL  PUjH  ( 1 , W 9 Y ) 

GO  TO  1 
3 CONTlNUi 

IF  ( (ICI  . AND.  3)  .NE.  0)  CAlL  PUSH  < 1 , WT Y ) 

GO  TO  1 
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6 CONT I NJ_ 

ICLIP=-1 

RETURN 

7 CONTINJ. 

IF  ( INJ.  c.3.0)  GO  TO  10 
ANGLE  section 

IA l = IANGLc. (GlX, QY)  f I «2  = I ANGll  ( XX 1 , Y Y 1)  i IA3  = 
5 lANGLil PX,PY) 

Im1= IA1- Ia2  5 IA2=Iu2-IA3 
IF  ( IA3S  (I A1 ) , Ll . 3)  GO  TO  3 
IF  (IA1.LT.0)  IAl=IAl+lb 
IAl=IAl-3 
3 CONTINUE 

IF  (IA35 (IA2) .LE.3)  TO  0 
IF  ( 152.  LT. 0)  Iu2=IA2*16 

IA2=IA2-d 
9 CONTINUE 

1 0 1 L T « = t A 1 ♦ I A 2 
10  CONTINU. 

ICL I P=  0 
return 


-me.**  *•  as 


SU3R0JT*N_  PUSH  ( I A l , 3 T ) 


CLIP  THE  LlNn  AGAINST  tHl  cXTi_Nl/Lj  l J G £ S OF  THE 

5 WINDOW 

COMMON 

1 7CH1/  HuX , HRX, NBY, WT Y, QX , QY,QZ, PX, PY , PZ , XXI , Y Yl, 

a XX2,YY2,IULLTA 
CO* ION 

1 //  > Ll  , xE2,  NlIn::  a , NPOl  Yb,  IPPT*,  XOFF,  YOFF,  S^ALE, 

a NPTS, 

2 XaC1105),YS<110a),ZS(in5),IEQNO(27  60), 

J IFENO(j90), 

3 1:191  ( 2760)  , 1102(2760)  ,IEOLINK<  2760)  , 
PZHIN(o90>  ,POLYA(o)C)  , P0LY3(o9d)  , POLYC  (a9  0)  , 

$ PO.YD  (c  90)  , 

3 I»EObt  (6  3 0)  , I PL  1 5>  T (690)  , I PL  INK  (b90)  , AX  ( 1 77  0)  , 

$ AY ( 17  70  ) , 

6 AZ  (1770)  »AXY(177i})  ,AXYZ(1770)  , 1 0 1 , IC2 
IF  ( IAl. N£. 0)  GO  TO  1 

YY 1= (YY2-YY1) * (dT-XXl)  / (XX2-XX1) +YY1 
X X 1 = 3 T 
GO  7 0 2 

1 CONTINUE 

XXl=lXX2-XXl)MdT-YYl)/(YY2-YYl)+XXl 
Y Y 1 = 3T 

2 CONTINUE 

Iwl  = IWCuDE  (XXI,  YYD 
RE  TURN 

c.  N ? 
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FUNCTION!  iw^ou:  C X , Y ) 


JlT.RMINE  THE  LOCATION  CODE  FOR  POINT  ( X , Y ) 


COMMON 

1 /CW1/  WLX,  WRX,  WdY,  WT  Y,CiX,QY,QZ,PX,PY  ,PZ  , XXI  ,YY  1, 

i XX2 , Y YE , IDELT A 
COH  ON 

1 //  Itl  > I Z 2 » NLINfci  ,N POlYS,  I HPT  R>  XOFF » YOFF,  SCAl  c. » 

1 NPT  5 , 

2 XS  (1105)  , YS  ( 110b)  ,Z  S ( 1105)  , Ie.ON3(2760>  , 

I I PE  NO (o  9 0 ) i 

3 IEul<27 60 >, IE D2  12760), IEDLINK (2760), 
PZMlN(t>90)  ,PDLYA(b<?0),PJLYc3<690),POLYC(690), 

j>  P0- YD  ( o 9 0 ) , 

5 IPZDSL (£90)  , iPtiS  i (690) , £PLINK(S9G)  ,AX  < 17  70) , 

i A Y ( 1 7 7 0 ) , 

b AZ(1770>,AXY(1770),AXYZ(1770),IC1,  f'C2 

IWCODt=0 

if  (x.lt.wlx)  iwcodl=iwcdd:+i 

IF  (X.GT.WRX)  IrfCOQc'  = IHCOGu  +2 
IF  lY.uI.H3Y)  IWCOO- = IHCaD_+A 
IF  (Y.GT.WTY)  IWCODt=IHC30i+8 


return 

END 


*»  .TT&j 
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NL 


END 


DATE 

.FILMED 

7-77 
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FUNCTION  IANliL£(K,Y) 


JET.RMInE  T He  ANGLE  OOOt  FOR  THE  POINT  ( X , Y» 


COMMON 

1 /CW1/  WLX,WRX,W3Y,WTY,Q<,QY,0Z,PX,PY,PZ,XX1,YY1, 

S XX2, YY2, IDlLTA 
COMMON 

1 //  1E1,I£2,NLINES,NP0LYS,IPPTR,X0FF,Y0FF, SCALE, 

3 NPTS, 

2 XS(1105),YS(110s»,ZS(1105) ,IEONO( 27 60)  , 

? IPuNO(690), 

3 IE 01 ( 27  60) , I£U2 (276  0) , IEDLINK( 2760)  , 

4 PZMIN  (oQ0)  , POLYA  (69  0)  ,P0(_Y3  (690  ) ,POLYC  (o9  0)  , 
i POL  YD (5  90  ) , 

5 IPlP&E (690) ,IPLIS7 (690) , IPLINK(690) , AX (17 70) , 
$ AY (1770) , 

b AZ(l770),AXY(l770),AXYZ(1770),Iul,IC2 

IF  (X.G7.WLX)  50  TO  1 
IAnGlE=-» 

IF  (Y.G7.WTY)  IANGLt=3 
IF  (Y.uT.HBY)  A ANGLE=5 
R£1 URN 

1 CONTINUE 

IF  (X.uf.WRX)  GO  TO  2 
1ANGLE=0 

IF  (Y.GT.WTY)  I ANGL  t = 1 
IF  (Y.LT.W9Y)  I ANGLE=  7 
RETURN 

2 CONTINU. 

IF  (Y.GT.WTY)  IANGLt=2 
IF  (Y.uT.WBY)  IANGLE=6 
RET  JRN 


% 


sample  j a t a filfs 


FILE  "INPUT" 

3*0  1 « j 1 • 


FIlE  "TAPE 4“ 


l 


5 

1 

i 

*. 


8 

12  6 

0.1671 

-0. 3362 

10 

0.0975 

0.1443 

9 

0.0483 

0.0433 

3 

0.0403 

-0.1518 

8 

0.0  3*7 

-0.0314 

11 

0.0329 

0.1242 

11 

0.1708 

0. J 370 

9 

0.0877 

0. 1297 

10 

1 2 

2 3 

3 A 

4 1 

b 6 

6 7 

7 8 

8 5 

1 5 

2 6 

3 7 

4 0 
4 

t 

2 

3 

u 

4 

t 

6 

7 

8 

4 

1 

10 

5 

9 

4 

2 


1120 
4692 
3 66  9 
9937 
fa  w4  1 
0 013 
8880 
5338 


(FOK 


CON  VilNIwNCE  , HERE  Wt  HA  VE  VIOLATED 
THE  FORMAT  FOR  THE  POINT  COORDINATES. ) 
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